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EDITORIAL 

M E R V Y N BEAMISH 



Mervyn Beamish 


T he festive season is upon us again and here at Kim Books we’re in a 
total panic. The printer has given us four days to get the artwork to 
him if we want the magazine out before Christmas. By noting the 
date that this issue was received you’ll know if we made the deadline or 
not. 

What is happening to Commodore?? - the rumour mungers have been 
really alive this year. AMIGA was supposed to have been taken by Tramiel 
to ATARI, Commodore was going bust because of loan repayments, Nigel 
Shepherd was resigning, the Commodore Magazine was in trouble, the 
Commodore Magazine was being taken over by its competition or the 
Commodore Magazine was taking over its competition. 

Well Commodore is still the leading marketer of home computers in 
Australia. It is to release the AMIGA and some are already in the country. 
Nigel Shepherd is still with us and had a heafty push up the promotions 
ladder. My bank manager is still smiling at me (I think) and Kim Books 
doesn’t own the competition,and the competition does not own Kim 
books. 

All in all things seem to be much the same. That is why we are giving you 
the subscriber, a chance to tell us what you like, dislike orwould like to see 
in our magazine. Over the next three issues we will be publishino 

subscriber survey forms. Not only will these forms give you a chance to out 

your ‘bit’ to the editor, but also a chance to win a Commodore 1 28 and 
diskdrive. 

So if you ever wanted to tell me where to go (figuratively speakino f 
course!) - here is a golden opportunity. « ° 

And a Happy Christmas to you all - thanks for your support. 

Mervyn Beamish 
Editor 


NEXT tSSUE 


★ Our Annual Adventurer’s 
Issue - Hints, Tips, & Reviews 

★ A Reset Pulse Switch 
for the C64 

★ Measuring the readability 
of your Prose. 

★ Sound Effects Generator 
Number 3 

★ Graphics Library Picture 

★ 2nd Survey Sheet 

(Chance to win a Commodore 128 
& Disk Drive) 


Commodore is spending 
just over $1 million on a TV 
campaign, $345,000 on daily 
press advertising and a further 
$50,000 on bookings in special 
interest magazines. Its con¬ 
sumer campaign was devel¬ 
oped by agency Beeman, 
Mayrhofer and Stott, while its 
business advertising is co-or¬ 
dinated by Pope, Keirnan and 
Black. 

Much of Commodore’s 
advertising is centred on its 
$499 Commodore 64 family 
package, which includes a 
computer that plugs into a TV 
bct, a cassette data recorder 
and six software packages. 

In the under-$ 1,000 market, 
Mr Wood expects Commo¬ 


dore to dominate. The compa¬ 
ny’s research focuses only on 
dealer sates but a number of 
units will be shifted through 
other major retail chains. 

The Commodore advertis¬ 
ing and promotions manager, 
Mr Gil Avenaim, said the 
company expected to sell 
about 76,000 systems — 
40,000 family packs, 20,000 
Commodore 16s, 15,000 Com¬ 
modore 128s and 1,000 PC- 
10s. 


Financial Review December 10th 1985 
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The perfect match... 


COMMODORE 

RUEMAN 



COMPARE THESE SPECS BEFORE YOU BUY... 


FEATURES 

PRINT SPEED (CPS) 
BIDIRECTIONAL PRINT 
(COLUMN WIDTH) 

40 CHARACTERS PER LINE 
80 CHARACTERS PER LINE 
66 CHARACTERS PER LINE 
132 CHARACTERS PER LINE 
(PAPER HANDLING) 

FRONT LOADING FOR 
EASY PAPER SETTINGS 
BUILT-IN PRINTER STAND 
PRINT ON POST CARDS 
(SOFTWARE COMMANDS) 
DOUBLE STRIKE 
EMPHASIZED 
COMPRESSED 
UNDERLINE 
SUPER/SUBSCRIPTS 
ITALICS 

DOUBLE DENSITY BIT IMAGE 
(CHARACTERS) 

9X9 FONT 

TRUE DESCENDERS 


RITEMAN 

C-t- 

105 

YES 

YES 

YES 

YES 

YES 


YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 


MRS 801 

MRS 802 

MRS 803 

VIC1525 

VIC1526 

50 

60 

60 

50 

60 

NO 

YES 

YES 

NO 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 


COMMODORE PRINTERS 


NO 


COMMODORE GRAPHICS 

YES 

YES 

YES 

YES 

YES 

YES 

(OTHER FEATURES) 

SINGLE DENSITY BIT IMAGE 

YES 

YES 

NO 

YES 

YES 

NO 

EXPANDED 

YES 

YES 

YES 

YES 

YES 

YES 

REVERSE 

YES 

YES 

YES 

YES 

YES 

YES 


Plug-compatible with Commodore* 
computers. 2 software built-in: 
Commodore* & Epson** compatibility. 

If you own a Commodore computer...or are thinking 
about getting one...you’re going to want the Riteman 
C + dot matrix printer. You’ll really appreciate that 
added convenience, versatility and economy. Its 
unique front loading design lets you use plain paper 
of any thickness, eliminates positioning and aligning 
problems and keeps continuous-feed paper away 
from entangling cables and connectors. Just compare 
the spec, table...complete with a built-in Commodore 
interface and all necessary cables and 
connectors...the Riteman C -t- is the RIGHT printer 
for your Commodore system. 


* Commodore is a registered trademark of Commodore Business Machines Inc 
** Epson is a registered trademark of Epson America Inc. 

Distributed exclusively in Australia by: 


anitech 

A DIVISION OF THE ANI CORPORATION LTD lINC IN N SW • 


ADELAIDE: (08) 356 7333 BRISBANE: (07) 275 1766 

HOBART: (002) 344511 MELBOURNE: (03) 7959011 & 7955111 

PERTH: (09) 277 7000 & 277 1944 

SYDNEY: (02) 648 1711 & 6484088 AUCKLAND: (09) 4442645 
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HELPOUT 


HELPOUT is a program checker that makes it 
easier to correctly enter C64 programs from the 
Commodore Magazine. Once HELPOUT is loaded 
enable it with SYS49152, type TEST <CR>. 

A typical line would be: 

6045 NEXT;G0SUB 6300’CFSI 

You type ALL of It, remembering to use a single 
quote 0, not "talking marks". You may use 
shorthand typing (GO then SHIFT and S for 
GOSUB, for example), and put in or omit spaces as 
you like (except, of course, inside quotes). 

If you do it wrong, one of six error messages will 
appear, and a fog-horn will blow. 

NO CHECKSUM: You probably forgot the 
apostrophe, or some or all of the four character 
checksum. Cursor to the end of the line, enter the 
checksum as shown, and press Return. 

QUOTE: HELPOUT checks to ensure that quotes 
come in pairs. Either you left one out, or got a bit 
carried away and added one of your own. 

PARENTHESIS: This is like QUOTE, except that 
HELPOUT looks for pairs of ( and ). 

KEYWORD: You may have misspelled a Basic 
keyword (GOSLOB instead of GOSUB) or simply 
left one out. Recheck the line. 

#OF CHARACTERS: Ignoring spaces outside 
quotes, you have typed too many or too few 
characters. This could even be a typo in a keyword, 
so check the line carefully. 

UNIDENTIFIED: The cowards way out. The line is 
not right, but the error could be any of a number of 
things- wrong line number, wrong checksum, or 
you just mussed it up. Read the line carefully to find 
the error. 

If you do get an error, the line WILL NOT be entered 
into your program. You will have to take some 
action to correct It before that can happen. To clear 
the error message, press any key (the line 
underneath the error message will not be affected 
if you use, say, the space bar), then get to work to fix 
the problem. 

Then the line is OK, HELPOUT strips off the 
checksum, then enters the line into your program. 
There is no program space overhead from using 
HELPOUT. 

We like HELPOUT. It comes from Mark Robin, and 
is the program that Commodore uses in its 
homegrown magazines. With a pedigree like that, 
and with the very considerable help it gives, we 
know it will make your programming more 
enjoyable. 

If you want to add checksums to a program of your 
own, say for this magazine or a User Group 
publication, load HELPOUT and get it all going. But 
this time, enter ADD <CR> instead of TEST. 

If your program is already written, load it and LIST it 
to the screen. Using the cursor keys, put the cursor 
on each line in turn and press Return. You will get a 
chirp of sound at each line, but nothing will appear 
on the screen until you type LIST again. 


ADD will include checksums if you are writing new 
lines. Nothing could be more simple!! 

Lastly, you may turn HELPOUT off to suit yourself. 

Type KILL <CR>, and HELPOUT is disconnected. 

If you want it again, type SYS49152 <CR> and 
away you go. 

1000 REM: HELPOUT '64 
1010 REM: 

1020 REM: COMMODORE MAGAZINE 
1030 REM: 

1040 SA=49152:FA=50052 

1050 F0RI=SAT0FA:READA:S=S-FA:P0KEI,A:NEXT 

1060 IFS<>103233THENPRINT“->ERROR.. CHECK AGAIN!!”:END 

1070 PR1NT‘0K":NEW 

1080 DATA 76, 35,192, 0. 0. 0, 0, 0. 0, 0. 0, 0. 0. 0, 0. 13 

1090 DATA 0. 88,193, 94,193.102.193.118.193.131.193,143.193.234.234.234 
1100 DATA 76.131.192,162. 5,189. 29.192.149.115,202, 16.248. 96,160, 2 
1110 DATA 185, 0. 2,217, 60.193.208. 11,136. 16.245.169. 1.141, 16.192 
1120 DATA 76. 31,193, 96,160, 3,185, 0. 2,217, 56.193.208.224.136. 16 
1130 DATA 245.169, 0.141. 16.192, 76. 31.193. 96.160. 3.185. 0. 2.217 

1140 DATA 52.193.208.224.136. 16.245,160. 5.185.162.227.153.115. 0.136 
1150 DATA 16.247,169. 0.141. 24.212, 76. 31.193.230.122.208. 2.230.123 
1160 DATA 76,121. 0.165.157.240.243.165.122.201.255.208.237.165.123.201 
1170 DATA 1.208.231. 32. 90,192.173, 0. 2. 32.163.192.144.220.160. 0 

1180 DATA 76.234.193.201. 48. 48. 6,201. 58. 16. 2. 56. 96. 24. 96.200 

1190 DATA 177.122.201. 32.208. 3.200.208.247.177.122. 96. 24.200.177.122 
1200 DATA 240. 53.201. 34.240.245.109. 5.192,141, 5.192.173. 6.192.105 
1210 DATA 0.141. 6.192. 76.189,192, 24.109. 7.192.141. 7.192.144 3 

1220 DATA 238, 8.192.238. 11.192. 96. 24,109, 10,192,141. 10.192.144. 3 

1230 DATA 238. 9.192.238. 12.192. 96. 10.168,185, 17.192.133.251.185 18 

1240 DATA 192.133.252.160. 0.169. 18. 32.210.255.177.251.240. 6 . 32210 
1250 DATA 255,200.208,246, 32. 84,195, 32,126.195, 32,228,255,240.251 160 
1260 DATA 27,185, 63,193, 32,210.255,136, 16.247,104,104,169, 0,141, 0 

1270 DATA 2. 76,116,164, 75, 73, 76. 76, 84. 69. 83, 84, 65, 68 , 68 145 

1280 DATA 145, 13, 32, 32, 32, 32, 32. 32, 32, 32, 32. 32. 32. 32, 32! 32 

1290 DATA 32, 32, 32. 32, 32, 32,145, 13, 81. 85, 79. 84, 69, 0, 75 69 

1300 DATA 89. 87, 79, 82, 68. 0, 35, 32. 79, 70, 32. 67, 72, 65, 82 ! 65 

1310 DATA 67, 84 , 69, 82, 83. 0. 85, 78. 73, 68 , 69. 78, 84 , 73. 70 73 

1320 DATA 69, 68 , 0, 78, 79. 32. 67, 72, 69. 67. 75. 83, 85. 11 . 0 ’ 80 

1330 DATA 65, 82, 69, 78, 84, 72. 69, 83. 73. 83, 0,200.177,122 208 251 

1340 DATA 132,253,192. 9, 16, 3. 76.199,193,136,136,136.136,136!l 77122 

1350 DATA 201. 39,208. 19.169. 0,145.122.200.162, 0,177.122,157' 60 3 

1360 DATA 200.232.224, 4,208.245, 96. 76.242,194,160, 0.185, o! 2153 

1370 DATA 64, 3.240,242.200,208,245.160. 0,185, 64. 3.240,232.153’ 0 

1380 DATA 2.200.208.245. 32,215,193. 76. 86.194,160, 11,169. o!l 53 ' 3 

1390 DATA 192,141. 60, 3,136. 16,247.169.128.133, 2 . 32. 27,195 160 ’ 0 

1400 DATA 32,155,193, 32,202,193, 32. 49,194,230.122.230,123, 32,124'l65 
1410 DATA 160. 0, 32,175,192.240.205, 36, 2,240. 6 , 32.215,192, 76’ IB 

1420 DATA 194,201. 34,208, 6 , 32,188.192, 76, 18,194, 32.231,192, 76 18 

1430 DATA 194,160, 0.185, 0, 2, 32,163,192,200,144, 10. 24,109, 9!l92 
1440 DATA 141, 9.192, 76. 51,194,136,162, 0,185, 0. 2,157. 0, 2!240 
1450 DATA 4.232,200.208.244. 96. 24,173, 11.192.105. 65,141, 11 , 192 ’ sg 
1460 DATA 173, 12.192.233. 25,144, 6,141, 12,192. 76. 96.194,173, 12 192 

1470 DATA 105, 65.141, 12,192.173, 5,192,109, 7,192.72,173. 6,192 109 

1480 DATA 8.192.141, 14,192,104.109. 10,192,141, 13,192.173, 14,192 109 

1490 DATA 9,192.141. 14,192, 56,233, 25,144, 6,141, 14.192, 76,15o’l94 

1500 DATA 173. 14.192,105. 65,141. 14,192,173, 13.192,233. 25.144, 6’l41 

1510 DATA 13 192. 76.171,194.173. 13,192,105, 65,141, 13,192,160, l'l 73 

1520 DATA 11,192.205. 60, 3.208, 32,200,173, 12,192,205, 61. 3,208 23 

1530 DATA 200,173. 13.192,205. 62, 3.208, 14,173, 14,192.205, 63. 3,208 

1540 DATA 6 , 32,100,195. 76,122.192.173. 16.192,208. 17.152. 72.104, 76 

1550 DATA 247.192,173. 16.192.240. 1. 96,169, 4, 76,247.192,164.253.169 
1560 DATA 39.145,122.162. 0,200.189. 11,192.145,122.200,232.224. 4.208 
1570 DATA 245,169, 0,145,122, 32,100.195, 76.122.192.160. 0,185. 0 2 

1580 DATA 240. 17,201. 40,208. 3.238, 3.192,201. 41,208, 3,238, 4,192 
1590 DATA 200.208.234.173, 3,192.205. 4,192,208, 1. 96.169, 5, 76,247 

1600 DATA 192,169, 32.141, 0,212.141. 1,212,169, 9,141, 5.212.169, 15 

1610 DATA 141, 24,212. 96, 32. 65,195.169.129. 32.119.195,169.128, 32,119 
1620 DATA 195. 76,113.195, 32. 65,195,169, 17. 32.119.195,169, 16. 32,119 
1630 DATA 195,169. 0.141. 4,212, 96,141, 4,212,162,112.160, 0.136.208 
1640 DATA 253,202,208,250. 96 


NICE LISTER 
CONVENTIONS 

1. All control, colour, function, and 
shifted and Commodore key graphics are 
converted to 'words’ (or the abbreviations 
as represented on the keyboard) enclosed 
in square brackets (). 

For example, [DOWN], (CLR) and so on. 

2. Multiple cursor controls are 
represented by one word plus a number. 
For example, (DOWN 15). 

3. Shifted graphics (right-hand 
symbol on key) are converted to the 
corresponding alphabet character enclosed 
in square brackets. A shifted 'S' heart 
character becomes (S). 


4. Any character accessed by the 
Commodore (C=) key is indicated by further 
enclosing the alphabet character inside 
the symbols <>. 

A Commodore 'A' becomes [<A>). 

5. With multiple characters, the 
redundant brackets ]( are replaced by a 
comma as;- 

(CLR,DOWN5,WHT.<A>I 

6. With multiple shifted graphics, the 
alphabet character is simply repeated, 
numbers are not used as |AA AAA AAA AAA). 

7. Multiple Commodore graphics are 
repeated as (<A>, <A>, <A>, <A>]. 

8. Spaces and shifted spaces within 
quotes are represented by the words 
(SPACE) or (SHSPACE) followed by a 
number if required. 

For example, (SPACE 15|. 


9. Extra words are used for the 
following control characters. 

Keyword CHR$ 


DEL (CRTL-T) 20 
INS 148 

TEXT 14 converts character set to 

(CTRL-N) upper/lowercase mode. 


GRAPH 142 converts character set to 

uppercase/graphics mode. 
LOCK 8 disables the C = key and 

(CTRL-H) locks the keyboard in the 
current character mode. 


UNLOCK 9 
(CTRL-1) 


enables the C =key 
sequence. 
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NEWS & VIEWS 


C64 INVOLV ED WITH NEW INTELLIGENCE TEST 

I - - ' -- -- 



Doctor Stankov (right) with Research Assistants John Crav,'ford (seated) & Brett Myers. Data 
from his attention tests are recorded on a C 64 for later evaluation. Photo courtesy of 
University of Sydney-Department of Photography 


PRIMARY SCHOOLS 
AND COMMODORE 

Yarrambat Primary School and 
Watsonia Heights Primary School 
have produced a booklet entitled 
“A Suggested Approach for Using 
Commodore Computers In Primary 
Schools”. 

The booklet covers many questions 
associated with computer use in 
Schools and concentrates in 
particular on a list of 27 skills/ 
concepts in getting children started. 

Much of the booklet is applicable 
to all brands of computers, but this 
booklet is also machine specific to 
the point that it concentrates on 
Commodore software and details 
programs seen as appropriate to 
the skills/concepts being taught. 

Cost of the booklet Is $6.00 
(including postage). 

For further Information contact 

Brendon G. Smith 

Yarrambat Public School 

Yan Yean Rd., Yarrambat VIC. 

3091. 


NEW FOR DLM 


The Developmental Learning 
Materials EarlyChildhood programs, 
Number Farm, Alphabet Circus 
and Shape & Color Rodeo, were 
award winners and proved most 
popular on the Australian market. 

Three new programs have been 
added to this range and each is 
just as exciting and educationally 
valuable as the first three. 

Comparison Kitchen makes learn¬ 
ing how to compare sizes, shapes 
and colours an exciting adventure. 
Children become acquainted with 
the concepts of large and small, 
greater than/less than, and same 
or different. 


Animal Photo Fun helps children 
identify animals, classify animals 
by habitats and strengthens 
memory skills. One and two player 
games are enhanced with music 
and colourful graphics. 

Fish Scales makes it easy to learn 
how to measure height, length and 
distance, and to use measurements 
to compare sizes and distances. 

Each of these packages contains 
six different games, all of which 
are motivating and fun. Music Is 
lively and familiar and colourful 
graphics attract the attention of 
every little learner. 

DLM software is distributed in 
Australia by Dataflow Computer 
Services and packages are avail¬ 
able from your local computer 
store or school supplier. 


SURESHOT SUPREME 

The SUPREME version of the 
popular SureShot joystick has 
now been released in Australia. 
The SureShot SUPREME incorp¬ 
orates a CENTRE FIRE button in 
addition to the long life features 
built into every SureShot. These 
features include positive micro 
switch action, steel shaft, phosphor 
bronze bearing, nylon actuator, 
high Impact case, and left and right 
hand fire buttons. 

The N.S.W. Department of Main 
Roads recently chose SureShot 
joysticks to remotely control the 
closed circuit television cameras 
monitoring traffic flow on the 
Sydney Harbour Bridge. SureShot 
joysticks were chosen in preference 
to industrial products costing up 
to 10 times as much as the 
SureShot. 

Further information, 

Dolphin Computers,(02) 438 4933 


A Commodore C-64 is an important 
tool irt research at the U niversity of 
Sydney’s Psychology Department 
which indicates 1hat measuring 
attention maybe a better way of 
measuring intelligence than the 
old written intelligence tests. 

A team led by Dr Lazar Stankov, 
Senior Lecturer in the department,, 
has been investigating the role of 
attention as a factor of intelligence. 

In the experiments, volunteers are 
faced with complex audio and 
visual tasks, such as recognising 
tones or responding to visual 
clues on a C-^4, at the same time. 
The results are recorded on the C- 
64 so that accurate data on 
response times and correct re¬ 
sponses can be obtained and 
evaluated. 

Dr Stankov says, “Divided attention 
tests are much more demanding, 
than written tests, as they call for 


more resources to be put Into 
them and they draw out more 
effort.” 

Part of the research involves 
studying how performance may be 
influenced by practising the divided 
attention tasks, and the effects of 
prolonged training in creative 
thinking on intelligence tests. 

It has been discovered that fluid 
Intelligence (problem solving ability 
which does not depend on formal 
education) declines relatively 
rapidly after the age of 30, but 
crystallised Intelligence (intellig¬ 
ence which depends heavily on 
education) doesn’t decline until 
60 or 70. 

”As people get older they are less 
able to perform demanding tasks, 
but the tasks that Involved vocabu¬ 
lary skills don’t decline at all until 
the 65-70,” he said. 



SureShot Supreme 
Joystick 
Distributed by 
Dolphin Computers 
(02) 438 4933 


HELP FOR CANCER 
SUFFERERS 


Sydney — Three of Australia’s 
leading computer companies - 
Imagineering, Datachecker/DTS 
and Dick Smith Electronics, have 
joined forces to donate computer 
equipment and games to NSW 
children suffering from cancer. 

Imagineering, Australia’s largest 
distributor of microcomputer soft¬ 
ware and peripherals, has donated 
a Commodore 64 home computer 
and 30 games to Alpha Committee 
for the Malcolm Sargent Cancer 
Fund for Children in Australia. 
Datachecker/DTS, Australia’s 
leading supplier of point-of-sale 
equipment, and Dick Smith 
Electronics, Australia’s leading 
electronic components retailer, 
have joined to donate a Dick Smith 
Challenger IBM - compatible 
personal computer to the same 
committee. 

Both computers and the games 
were donated to Sydney’s Prince 
of Wales Children’s Hospital, 
where they are being used by 


teenagers undergoing chemo¬ 
therapy. 

The donations co-incided with a 
gala fashion parade held on Oct. 

10 at the Art Gallery of N.S.W., and 
organised by the Alpha Committee 
to help raise funds for the Malcolm 
Sargent Cancer Fund. A spokes¬ 
man for the committee, Neil 
Matthews, said it was the first time 
computer companies in Australia 
had assisted this fund. 

“We think it’s great that these 
three companies have donated 
equipment and games which will 
help teenagers suffering from 
cancer” Matthews said. “To date 
teenagers in either the Prince of 
Wales Childrens Hospital or the 
Royal Alexandra Hospital for 
Children have had little to occupy 
their time while undergoing treat¬ 
ment.” 

Imagineering, Datachecker/DTS 
and Dick Smith Electronics were 
formally thanked for their donations 
at the fashion parade - a glittering 
event at which three of Australia’s 
leading fashion designers, Anne 
CONTINUED OVERLEAF 
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MINITAB FOR PC^S 

At a recent marketing course at 
Karingai College I came across 
MINITAB, simple to use but a 
mighty powerful data analysis 
software (from a company called 

Data Analysis-devilishly imaginative 
these software companies!) 

Formost microcomputers, Minitab 
is available in two forms: 
Fundamental Minitab and Standard 
Minitab. Particularly useful in 
instruction and for preliminary 
analyses. Fundamental Minitab 
produces scatterplots and histo¬ 
grams and performs the following 
operations; descriptive statistics, 
simple and multiple regression, 
analysis of variance, nonpara- 
metrics, crosstabulations, random 
data generation, and macro and 
looping capabilities. 

Standard Minitab is the same 
version of Minitab that’s available 
for mainframe and minicomputers. 
It performs time series analysis, 
stepwise regression, exploratory 
data analysis, and matrix operations 
as well as all the operations found 
in Fundamental Minitab. 

Minitab will run off IBM compatibles. 
It requires 256K and uses MS 
DOS (all versions) operating system. 
It is hard disk supported and the 
Maths processor is 8087 (supp¬ 
orted). Approximate worksheet 
size is 8,000 numbers. 

For further information; 

Data Analysis 
215 Pond Laboratory 
University Park, PA 16802 USA 
Or you could try Wadsworth 
Publishing who distribute the 
manuals in Australia. 


NEW AUTOMATIC DISK 
COPYING 


Nashua, are now distributing a 
series of machines which offer 
solutions to diskette copying 
problems. 

The first is the Nashua Automatic 
Diskette Copier. The Computer 
based machine operates as a high 
speed diskette duplication and 
verification machine. It takes a 
blank diskette, verifies it to see it 
has no manufacturing errors, 
formats it correctly for the comp¬ 
uter concerned, writes information 
to it from the original diskette and 
then, having done all that, verifies 
it to make sure that it is 100% 
correct. 

The machine has a hundred 
diskette hopper which automatic¬ 
ally feeds in the diskette. 

The Nashua Automatic Diskette 
Copier is the ideal machine for 
copying diskettes for one comp¬ 
uter using one format in commercial 
quantities. 

If you are using a multiplicity of 
formats Nashua have the Series 
One Duplicator which can be 
configured in various formats: 
5.25" with 48 tracks per inch, 
5.25" with 96 tracks per inch, 8" or 
3.5" drives and the new high 
density IBM AT drives. 

With a single side IBM diskette the 
Series One Duplicator can make 
an exact copy in 36 seconds A 
double sided IBM DISKETTE 
takes 60 seconds, and Apple 
diskette 24 seconds and a 
Commodore diskette about the 
same amount of time. 


(from left) Alan Bowman, Jeanne 
Rockey, Neil Matthews. Joe Harper 
& Prof. John Beveridge. 


Lewin, Lydia Pearson and Ewaldo, 
showed their coming Summer 
collections of Lingerie, day and 
evening wear respectively to an 
audience of more than 300 
people. 

Jeanne Rockey, The Malcolm 
Sargent Cancer Fund’s administ¬ 
rator, said more than 71 families 
had been helped financially in the 
past two years. “The Fund is 
primarily interested in providing 
services for children suffering 
from cancer, and for their families,’’ 
she said. 

Although we so not get involved 
in funding cancer research, we 
provide things like travelling allow¬ 
ances for children undergoing 
treatment at either children’s 
hospital, and for their families to 
visit them. We also provide games 
and equipment the children can 
use while in hospital. Thefund also 
sponsors outside activities, like 
camps, for the children. 

‘We are particularly grateful to 
'magineering, Datachecker/DTS 
and Dick Smith Electronics because 
jnost of the children we help come 
fom battling families, and we 
computers and games 
good use by kids 
wanting to learn as much as they 
can about computers " 

The Malcolm Sargent Cancer 
^und was originally formed in the 
in 1967 in memory of world- 
enowned musical conductoi 
Malcolm Sargent, who died of 
cancer. 


This is twenty times the speed of 
manual duplication on an ordinary 
computer. 

The recording uses a technique 
called HRDT (High Definition 
Recording Technology) which 
places the Information with great 
precision at the precise point on 
the diskette as dictated by the 
format laid down by the computer 
manufacturer. 

The Nashua Diskette Copier can 
also be programmed to add 
protection devices at one of three 
levels as the diskettes are made. 

Nashua also have a new board/ 
software combination called the 
FormasterSprlntwhich works with 
the IBM XT to allow it to produce 
disk copies in IBM, Commodore or 
Apple formats. Which means that a 
software house can use an I BM XT 
as a host and produce Apple, IBM 
or Commodore disks on that 
single machine. 

Nashua will either sell the machines 
outright to major users or make it 
available through service bureaus 

in capital cities throughout Australia 

for people who only.need occas¬ 
ional use of such a service. 


NEWSROOM 


The Newsroom software package 
distributed in Australia by Dataflow 
Computer Services, provides the 
means for journalists of any age to 
create stylish, sophisticated publi¬ 
cations. 

The two disk program alows one to 
develop newspapers, newsletters 
brochures, flyers, information 
packets and motivating assign¬ 
ment presentations. 

Using the built in word processor 
two type sizes and five type styles 
wrap neatly around photos of 
artwork one has prepared. 600 
pieces of artwork are provided on 
the clip art disk. Each of these can 
be flipped and, using the powerful 
graphic tools, and endless variety 
of pictures can be created. 

The comprehensive, manual not 
only gives detailed instructions on 
how to use the many features of 
The Newsroom, but also is a 
complete guide to creating a 
newspaper, from organising a 
newspaper staff to telling a story 
with pictures. 

The Newroom is mouse an joystick 
supporting and,-via modem text 
and graphics can be transferred 
between previously incompatible 
computers. 

The Newsroom is available now 
the Apple ll-F/lle/llc and IBM PC 
machines and is expected for 
release on the Commodore 64 in 
January, 1986. 
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POWER CONDITIONING 

Online Control Pty Ltd of Artarmon, 
N.S.W. have appointed an authoriz¬ 
ed stocking distributor of the 
Square D Topaz range of power 
conditioning products for comp¬ 
uters and electronic equipment. 

Computer systems and other 
electronic devices are susceptible 
to malfunction and permanent 
damage caused by commonly 
occurring problems on the in¬ 
coming . power supply. These 
problems include electrical noise, 
voltage fluctuation and black out. 

The Topaz range of power condition¬ 
ing products provides a cure for 
power supply problems. The range 
includes ultra isolators for elect¬ 
rical noise suppression, power 
conditioners which provide noise 
suppression and voltage fluctuation 
protection, and uninterruptable 
power supplies for black out 
protection. 

Topaz power conditioners are 
available to protect all sizes of 
equipment, from 125VA personal 
computers through to large main 
frame or industrial electronic 
installations requiring over 10OKVA, 

Enquiries: Peter Warde 
(02) 43 1313 

CLASSROOM 

COMPUTING 


ASHTON SCHOLASTIC are to 
produce a magazine which they 
claim will cater for a complete 
teaching program. To achieve this 
their two popular teacher public¬ 
ations CLASSROOM and 
CLASSROOM COMPUTING, have 
been amalgamated thus creating 
a complete resource magazine for 
Australian K-7 teachers. 

As computers are an accepted 
part of the school curriculum they 
feel it appropriate to treat them as 
an Integrated part of the curriculum. 

The first new-look CLASSROOM 
incorporating CLASSROOM 
COMPUTING will be published In 
February 1986. To accommodate 
all the regular articles and special 
features which appear in both 
CLASSROOM and CLASSROOM 
COMPUTING, the new magazine 
will have 72 pages. 

For Further information: 
Telephone: (043) 28 3555 


THE VIATEL TANGO 

A new service enabling dealers 
and suppliers of computer products 
to provide information on Viatel, 
thus significantly reducing their 
current dealer communication 
charges as well as dramatically 
reducing turnaround, is now avail¬ 
able through Creative Communic¬ 
ations. 


Creative Communications, a major 
videotex consultancy and implem¬ 
entation group based in Sydney, 
have been developing a range of 
videotex services for over two 
years during which time they have 
helped develop databases for 
organisations such as American 
Express, Qantas, Apple, Commodore 
and Yellow Pages. 

Their own large database on Viatel 
is called Tango. 

By simply selecting page*424# to 
Tango, Viatel users gain access to 
information on the latest hardware, 
software and computer shop 
specials for Apple, Apricot, BBC, 
Commodore and Olivetti computer 
products. 

There are also special Bulletin 
Boards for authorised dealers only 
and directories for the above 
microcomputer companies provid¬ 
ing an extensive computer shop 
access service of prices, promotions, 
peripherals and configurations. 

This means that all VIATEL users 
now have direct access to the 
latest information from suppliers 
and can message their computer 
shops who are using their dealer- 
only Bulletin Boards. A PC Chat 
Board for all Viatel users provides 
a facility for specific questions or 
problems to be answered by the 
PC Shops. 

“Any microcomputer dealer not 
providing theirown information on 
Viatel is missing out on a unique 
opportunity to generate well qual¬ 
ified sales leads and communicate 
directly with prospective 
customers” says Gerrard Sayes 
directorat Creative Communications 

“For around $1,350 per year, a 
dealer can advertise their services, 
promote different products, 
advertise specials each month, 
take orders via the system and 
change price details as and when 
applicable” says Mr Sayes. 

For a directory listing, a one page 
bulletin, updated every quarter is 
available for $200 per year. 

“Unlike a magazine, videotex 
offers a direct response facility, 
statistics on how many people 
have viewed the information and 
the facility to update the information 
when applicable, for very little 
cost”. 

Mr Sayes stressed that because 
Creative Communications worked 
for most of the large suppliers, 
computer shop information may, 
within certain guidelines, be linked 
and integrated with the suppliers 
master bulletin boards and shop 
directories on the Tango database. 

“Also, Tango is now a known 
central reference point for micro 
owners, computer shops and 
Viatel users, with some frames 
recording over 300 enquiries per 
day” said Mr Sayes. 


To promote this new service 
Creative Communications are 
launching a Summer Buyers Guide 
for Christmas specials for computer 
shops, complete with an ordering 
service, as well as a public trading 
board for buying and selling PC’s. 

“These services will be available 
by the end of November,” said Mr 
Sayes. 

Any dealer wishing to find out 
more information can press 
*424# to Tango on Viatel or 
Tel: Mr Sayes on (02) 908 4099 

FROM NAGS TO 
RICHES!!? 


WINNING ATTHE RACES USING 
YOUR COMPUTER is an all 
Australian book on racing systems 
disigned specificaly for Australian 
racing conditions. 

It is not a book about computers 
but it does provide insight into how 
computerised number crunching 
can discover patterns to turn the 
odd losing tipple Into an educational 
winning scheme. 

Author, Paul Worden bought all 
the racing systems available, 
assessed their potential and then 
developed his own system based 
upon the systems that he found to 
be most reliable. All programs are 
written in microsoft basic and 
graphics and syntax have been 
avoided. The programs have been 
run and tested and even if you 
have never owned a computer, 
you will find it totally under¬ 
standable. 

You will be able to analyse odds 
structures, write systemettes, learn 
to make a profit out of betting of 
several horses, write complex 
evaluation programs and much 
more. The book contains completed 


PC 86 DATES 

Some dates which you may care to 
put in your memory system occur 
in March and June 1986. 

The Sixth Australian Personal 
Computer Show will be at the 
Centrepoint Tower in Sydney 
between the 12th and 15th March. 

Meanwhile, the Seventh Australian 
Personal Computer Show is being 
staged at Melbourne’s Royal 
Exhibition Building from June 1-4. 
Being staged concurrently will be 
Communications 86 and Office 
Technology 86. 


programs on speed rating, multiple 
betting, equine evaluation and 
betting simulation as well as short 
utility programs. Each chapter 
deals with a different aspect of 
horse racing as it is applied to 
personal computers. 

The only way to beat the bookmaker 
is to have better information and 
process it faster, hence the 
utilisation of a computer. Worden 
explains the rules of the systems 
and application of information and 
appropriate systems. 

While Worden states that it is not 
foolproof, with an 80% success 
rate in the past 18 months, it 
certainly provides an edge on 
most betting systems used to 
select the winning combination. 

WINNING AT THE RACES WITH 
YOUR COMPUTER is not written 
just for computer owners or horse 
race enthusiasts, it is written for 
anyone who is interested in game 
simulation wher an outcome is 
governed by a large number of 
factors. R.R.P. $12.95 

PAUL WORDEN was born in 
Plymouth, England in 1943 and 
moved to Australia in 1959. After a 
varied career as a meat inspector, 
technician and more recently, a 



photographer, Worden 
is now self employed 
writing computer prog¬ 
rams and a few 
magazine articles. 

He is married and lives 
in Portland, Victoria and 
his main ambition is to 
be self sufficient from 
his computer racing 
analysis! 

For further information- 

Pitman Publishing 
158 Bouverie Street 
Carlton, Victoria 3053 
Tel: (03) 347 3055 
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USER GROUP COLUMN 

An Active Time For User Groups 

Lawrence Hulse 


Although close at hand, the call of the wilds 
has yet to be heard and while spring fever is 
being felt throughout the land, there 
remains high turrr out at user group rhonthly 
meetings. 

However, many group newsletter editors are 
echoing the familiar cry to group members, 
“Please submit stories!” An alternative is a 
letter to the editor. A sure fire way to see your 
name In print Is to tell the disheartened old 
editor that you really do read the newsletter 
and all of his time and efforts are 
appreciated. 


FROM QUEENSLAND — It must have been 
an interesting time at the Mermaid 
(Business) Users Group (MUGS) recent 
meeting. Their newsletter reports that, 
“...meeting held at Col Vernon’s residence 
was a buzz of comings and goings with the 
subjects varying from the latest In computer 
desks to wallpapering to the way of 
Superbase.” They may have originated an 
innovated development in home computers 
~ the colour co-ordinated computer case, 
which blends with its owner’s lounge room 
furnishings. 

The Townsville group has been viewing alot 
of hardware and software during recent 
meetings. They have seen the Epson GX80 
printer, an opposition machine with a mouse 
by the tail, as well as the Epyx Fast Load 
Cartridge, and the “Copy Files” software by 
the Southport Group. An important achieve- 
nnent is the group has been given free 
access to the CCUGO’s bulletin board. 

FROM WESTERN AUSTRALIA — One of 

the largest independent Commodore user 
groups in Australia, already with a current 
rnembership of about 400 is expanding. The 
Vic-ups Computer User Group, now with five 
groups, will soon be comprised of members 
from six Perth metropolitan groups and 
country areas. Each group has its own 
software library and printer. With such a 
diverse organisation. Chairman and news- 
etter editor, Alan Stuart Is trying to organise 
lectures or demonstrations about each two 
months for all members. His idea Is to hold 
total group get together on a Sunday 
afternoon. 


~ Sheppa 

^ ^•ATEL demonstration, wl 

I conjunction with the li 

ram ^ great success. ’’Many pec 

awav VIATEL in action and v 

Soeriai th what hey had see 

demonlw ^^r holding 

^o ^nd also for offe 

afternoon’s VIATEL bill ” wr 
Communicator editor Stephen Meddinc 

Colin Donald, Waverley Group of Victo 


Commodore 64 User’s Group, writes of The 
Age Consumer Electronics Show, “A soccer 
match in the Exhibition Buildings? Plus a jet 
Dogfight? As well as a rock concert? yes, I. 
saw all these things at once ... thanks to 
dealers demonstrating Commodore software. 
Commodore Business Machines had one of 
the largest displays, ...” He reports on the 
software, ‘Mind Prober”, “This analyses the 
personality of a subject, e.g. business 
competitor, and will reveal strengths, 
weaknesses and likely behaviour in a 
number of situations.” 

FROM NEW SOUTH WALES - The 

3Gosford Commodore Users’ Group 
(GOSCOM) was recently formed and reports 
a membership of fifty. So far they have 150 
public domain programs available on tape or 
disk. As publicity manager, Richard Bridge 
writes, “All Commodore Users are invited to 
attend, whether they are PET, Vic20, C-64, 
PC-10 or whatever!” 

From the Wollongong Group’s newsletter 
comes some reasons why a computer 
makes an ideal partner at home. Among the 
reasons are: every time you turn It on. It’s 
always ‘ready*; it obeys your every command, 
without an argument; a computer responds 
to logical reasoning and It doesn’t snore.” 
There are plenty more, reasons too. 

Editor of the Newcastle Technical College’s 
Compu-Tech Computer Club’s newsletter 
‘Victim’, Mark Hopkins, reports that the 
printer evening was a real success. 
Members present were able to compare 
such things as speed, size, print quality. 
Interfacing problems and draw on the 
experience of others. Members have been 
Invited to submit their ideas for a new cover 
design for the newsletter, and a prize will be 
awarded to the winning designer. In an 
editorial, Mark says, “With human nature 
being what It Is, people are always looking 
for new challenges and new ideas. For those 
of you who have explored all the facets of 
software perhaps you should consider a new 
avenue such as learning assembly language 
or trying to interface your computer to the 
real world through some hardware. I guess 
the main point I am trying to make Is the 
same old one. That is that computers are 
only limited by our imaginations,...” 

from A.C.T — A new editor has taken the 
helm of the group’s newsletter. Greg Weller 
replaces Dave Hamer and Gavin Lee. 

from NEW ZEALAND —‘Connection’, the 
Christchurch Commodore Users’ Group 
magazine. reports Dick Anderson, 
Commodore N.Z.’s Managing Director, 
saying that an agreement for manufacturing 
rights to Superbase and Supertype is a real 
coup and that Commodore N.Z. is the only 
company in the world to have such rights. 



Schools In the Northern Region of 
Melbourne have set up a Commodore 
Computers Education Users Group which 
concentrates on issues relating to 
computers in Primary Schools. 


Dear Sir, 

I am writing to you on behalf of Camp 
Pelican, the camping program of our 
Church. 

I have been appointed as Director of our 
first "COMPUTER CAMP", to be held In 
January 1986. We have access to several 
Commodore C64’s, disk drives and 
printers, but need to build a software 
library, and need guidance In establishing 
our program for this camp. 

As this is a totally new project for Camp 
Pelican, we would be grateful for any 
assistance your company may provide in 
advising us. or by donating software. 

I trust you may see fit to support our Camp 
Pelican Activities. 

Yours Faithfully 
Rev. J. G. Noble 

St. Mark’s Rectory Tarcutta N.S.W. 
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presenting . . . 


CAPTURE 


A NEW WAY TO UNLOCK THE POWER OF YOUR C64 OR C128* 

• CAPTURE IS A CARTRIDGE THAT PLUGS INTO YOUR COMPUTER'S EXPANSION PORT. 

• CAPTURE DOESNOTHING —UNTIL YOU PRESS ITS CAPTURE BUTTON. UNTIL THEN. A 

RUNNING PROGRAM CANNOT DETECT ITS PRESENCE. 

• CAPTURE THEN TAKES CONTROL — NO IPS. ANDS OR BUTS — AND PRESENTS A MENU. 

• CAPTURE WILL NEATLY SAVE EVERYTHING IN YOUR COMPUTER TO YOUR 1541 OR 

COMPATIBLE DISK DRIVE — ALL 64K OF RAM. CPU. VIC AND SID CHIP 
REGISTERS - EVERYTHING. IN EASY TO VIEW CHUNKS. 

• CAPTURE WILL. IF YOU WANT. PRE-CONFIGURE YOUR COMPUTER'S RAM SO THAT 

ONLY MEMORY ALTERED BY YOUR PROGRAM NEED BE SAVED. 

• CAPTURE WILL WRITE A BOOT ON YOUR DISK SO YOU CAN RELOAD AND BEGIN 

EXECUTION RIGHT WHERE YOU LEFT OFF. 

• CAPTURE DOES ALL THIS AT A COST OF JUST $88.55 


BUT HERE’S THE BEST PART 

• CAPTURE WILL MAKE AN AUTO-START CARTRIDGE OF YOUR PROGRAM. IT'S EASY! 

JUST FOLLOW THE DIRECTIONS ON THE SCREEN. NOW PLUG IN YOUR 
CARTRIDGE AND TURN ON YOUR COMPUTER. IN LESS THAN TWO SECONDS 
YOUR PROGRAM BEGINS AGAIN AT PRECISELY THE POINT WHERE YOU 
CAPTURE'D IT. MAGIC! 


C64 AND C120 TM COMMODORE ELECTRONICS. LTD. ‘WHEN OPERATING IN 64 MODE 


LION ELECTRONICS 

31«4 C3T EASTERN HIGHWAY 
MIDLAND BOSS W.A. 




WcmuoDcmE i 

t 64 OWNERS i 


FREE! Software Catalogue 

The Strategic Software Club posts catalogues listing 
the latest Commodore 64 software at discount prices, 
free to members six times per year. 

To join (no charge) ring (02) 957 6667 or simply fill in the 
attached form and send to Freepost 67, P. 0. Box 742, 
North Sydney, NS. VJ. 2060. 

(No stamp required.) 


strategic 

Software Club 

1 85 Miller Street, 

,| NAME. 

I ADDRESS. 

I. 




WORLD LINK 


Commodore 64, VIC 20 
Real-World Interface 
Control Lights, Motors, 
Relays, Heaters etc. with 
YOUR HOME COMPUTER. 

Featuring- 

★ 4 opto-coupled 240V inputs 

(Decodeable to 16) L.E.D. Indication. 

★ 4 opto-coupled 10 amp trial outputs, 240V 
(Expandable to 16) L.E.D. Indication. 

★ Stand alone unit, no 240V or other supplies required. 


Simply plug into your user port. 

Complete with all control software and demo program. 

Price $ 75.00 Inc S/T 


P&P $5.00 

ORDER FORM 

Please supply □ only WORLD LINK INTERFACE(S) at $75.00 each. Plus $5.00 P&P CHEQUE OR 

Bankcard No.Mastercard No. 

EXPIRY DATE.SIGNATURE. 

NAME.ADDRESS. 

SEND TO CHATRON INDUSTRIES P.O. BOX 321 
MOUNT GAMBIER S.A. 5290 
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TEXT 

COMPACTION 

by Paul Markowski 


This article is a result of reading a 
similar article In the British games 
magazine“The War Machine”. The 
article described a text compaction 
program written in BASIC and a 
corresponding decode routine 
written In 6502 assembler for the 
BBC microcomputer. I have adapted 
the decode routine to suit the 
Commodore 64 and because I 
don’t like to hang around for 
BASIC, have also implemented 
the encode routine (which does 
the actual text compaction) In 
6502 assembler as well. All this 
has been packaged up into a text 
compaction sytem which will allow 
you to create text compacted files 
for use with your own programs. 
The files consisting of the decode 
routine and compacted text are 
loaded under the KERNAL and 
BASIC ROMs. The files could 
contain all those messages used 
in adventure games and thus 
would free up a lot of RAM for 
actual program code. 

First a little bit about text 
compaction and the method used 
In this system. The program uses 
the Huffman encoding technique 
to compact and decode the text. 
As you all know all characters 
(ASCII ones any way) are rep 
resented by 1 byte (8 bits) in your 
comuter. One possible way of 
saving space would be to store 
each character as 4 bits so that 
you could store 2 characters in 
each byte. This would mean 
however that you would be limited 
to only 16 possible combinations 


of 4 bits and thus could only use 
16 characters. What the Huffman 
technique does Is to store the 
characters that occur most often 
in the smallest number of bits and 
to use more bits for those 
characters that occur least. To 
accomplish this you need to know 
the frequency that characters 
occur in the particular piece of text 
you want to compact. I have 
chosen the frequency that letters 
occur in normal speech as a good 
compromise for this system. 

As you can see from the table, 
“SPACE” and “E” appear most 
often, while “Z” and “?” appear the 
least. This table is also the list of 
the allowable characters that will 
be compacted, so if you require 
numbers you will have to spell 
them out. What we need to do now 
is analyse the frequencies in this 
table and allocate the the smallest 
number of bits to the characters 
that occur most often. To do this 
we build a frequency tree with the 
least frequent characters at the 
bottom and the more frequent 
ones at the top. Diagram 1 
represents this tree and this is 
what we use to generate the 
binary codes which will represent 
our characters. Starting at the top 
we have to go left (this is a ”0”) first, 
and then right (this is a “1”) and 
then left again (another ”0”) to 
arrive at the “SPACE”. Thus the 
code for aspace is“010”. By doing 
this for all the characters we arrive 
at the following table. 


LETTER FREQUENCY TABLE 

A - 36 

B - 

8 

C - 14 

D - 20 

E - 

50 

F - 12 

G - 8 

H - 

27 

1 - 35 

J - 3 

K - 

4 

L - 18 

M - 14 

N - 

34 

0-34 

P - 8 

Q - 

3 

R - 26 

S - 34 

T - 

39 

U - 15 

V - 6 

W - 

10 

X - 2 

Y - 9 

Z - 

1 

? - 1 

- 5 

1 

7 

SPACE - 91 


BINARY LETTER CODES 


A - 

0001 

D - 

OHIO 

G - 

101111 

J - 

01111110 

M - 

10010 

P - 

101110 

S - 

1111 

V - 

100111 

Y - 

001111 

- 

0111110 


B - 110110 
E - 0110 
H - 0110 
K - 1101110 
N - 1100 
Q - 01111111 
T - 0010 
W - 001110 
Z - 110111110 
? - 110111111 


C - 10110 

F - 011110 

I - 0000 

L - 00110 

O - 1110 

R - 1000 

U - 11010 

X - 11011110 

, - 100110 

SPACE - 010 


TEXT COMPACTION 
TEXT COMPACTION 


TEXT COMPACTION 
TEXT CO MPACTION 

TEXT COMPACTION 
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You will see that some characters 
are represented by 3 or 4 bits 
while some take up 8 and even 9 
bits. These character codes are 
used to locate the characters they 
represent in the decode tree that 
is implemented in the computer. In 
the computer there are no actual 
right or left turns. The decode tree 
has been implemented in the 
computer as a series of consecutive 
memory locations. Starting at the 
first memory loaction (or base 
address) the program checks the 
first bit of a particular code and if it 
is a “0” it adds 1 to the base 
address, if it is a “1” and the 
contents of the current memory 
location is less than 32 (20 hex) 
then the contents of the memory 
location is added to the base 
address and the new address thus 
calculated Is examined. If the new 
location contains a value greater 
than 31 (19 hex) a valid character 
has been found and this is output 
to the screen and the program 
starts at the base address again 
and checks the next bit of the 
code. This process keeps going 
until all the message has been 
decoded. The decode tree has 
been set up so that each code in 
the binary letter code table will 
lead to the correct letter. The 
binary codes are stored in a 
continuous stream of bits, so that 
for the purposes of decoding, the 
end of a particular piece of code is 
reached when a valid character is 
found in the decode tree. Thus 
every bit, for each byte read, is 
used to store the decode inform¬ 
ation. 

The program which does the text 
compaction will also allow you to 
edit the messages in a text 
compacted file, print the messages 
in afile to the screen orthe printer 
and save the text to disc as a file 
which can be loaded and used by 
your own BASIC programs. The 
program consists of 2 parts, a 
BASIC driver program which 
handles the screen and input, and 
a machine code portion which 
does the text compaction, decode, 
deleting and inserting of messages. 
Listing 1 is the BASIC driver and 
Listing 2 is a BASIC program 
which will generate a file on disc 
containing the machine code. This 
file will be called "TEXT.ASM”. 
After typing in Listing 1 and saving 
it. Type in Listing 2 save It and then 
run it. After it has finished load the 
first program and then load the 
machine code portion by typing 
LOAD “TEXT.ASM”,8,1. You should 
then test the program by running 
it. A Title screen will appear and 
then a menu which will allow you to 
select the various options. The top 
line of the screen is a status line 
which displays the number of 
messages currently stored and 
the amount of memory remaining. 
If the memory remaining is not 
24392 and the number of mess 
-ages stored isnotOthenyou must 
have made a mistake typing in one 


of the programs. Test all the 
options on the menu to make sure 
everything is functioning properly 
and then you can save the 
program and give it any name you 
like. The next time you want to use 
It just load the program, the 
machine code and BASIC are now 
one unit. 

A few Instructions on using this 
system with your own programs. 
The maximum number of characters 
you can store in a message is 250. 
This is no real limitation as if you 
want to display more you can just 
save all the text in a series of 
messages and then display them 
one after another. If you make a 
mistake while entering a message 
you can use the delete key to 
delete the unwanted characters. 
To use the text compacted files in 
your own BASIC programs you 
must follow some simple rules:- 

a. Check Listing 3. The first line of 
your program must correspond to 
the first line of this program. 
Listing 3 is loading a text 
compacted file called “TEST FILE” 
(you will use the name of the file 
thatcontainsyourown compacted 
text). The variable MN% is used to 
inform the decode routines which 
message you want to display. 
Because the decode code and 
messages use bank switching to 
store data underthe KERNAL and 
BASIC ROMs a small amount of 
memory is set aside for the bank 
switching code, that is the reason 
for the two pokes. 

b. When you want to display a 
message all you have to do is to 
issue a PRINT command (if you 
don’t want this message to be 
appended to the last one), set 
MN% to the message number you 
want to display, and then Issue a 
SYS40848 command. 

Afewwarnings. If you try to display 
a message that is not on file you 
could at worst end up with a 
screen full of garbage or a single 
“?”. If you keep getting stray “?” 
then either you haven’t declared 
the variable MN% first or the text 
compacted file hasn’t loaded 
correctly. Be careful if you are 
using RAM between COOO and 
DOOO (hex) as you could overwrite 
this area of RAM if your text 
compacted file exceeds 8K. I 
haven’t been able to fool the 
casette Into saving and loading 
RAM under the KERNAL and 
BASIC ROMs yet so the system 
currently only works for the disc 
drive. If any of you have any clues 
on saving RAM to casette from this 
area I would be most grateful to 
hear from you. Then I could 
incorporate a cassette option into 
the system. 

Well I hope you find this utility 
useful. We should see some really 
interesting adventure games in 
BASIC now that you have more 
room for actual BASIC code. 


Listing 1: TEXT.BAS 


10 IF A$<>“D” THEN POKE 55.144: POKE 56,159: CLR : 

MN%=0:MS$=“”:NA$=“”: GOSUB 60’LHIL 
25 GOSUB 900: PRINT “[DOWN2,RIGHT4,RVS]l[OFF.SPACEl 
INITIALIZE MESSAGE BUFFER”‘CEQN 
30 PRINT “[RIGHT4,RVS]2[OFF,SPACE]ENTER MESSAGE 
TEXT”: PRINT “[RIGHT4,RVS|3[OFF.SPACElSAVE 
MESSAGES TO DISC”‘CBCO 

35 PRINT “[RIGHT4,RVS1410FF.SPACE1LIST MESSAGES”: 
PRINT “IRIGHT4.RVS|5[OFF.SPACElLOAD MESSAGE FILE 
FROM DISC”‘CBJT 

40 PRINT “[RIGHT4.RVS16|OFF.SPACE]FINISH”: 

PRINT “[DOWN2.RIGHT41ENTER OPTION PLEASE”‘CBEK 
45 GET A$: IF VAL (ASXl OR VAL (A$)>6 OR A$=“” 
THEN 45’KRTP 

50 ON VAL (A$) GOSUB 100.200.300,400,500,600: GOTO 25’EFUJ 
60 PRINT “[CLR.WHT.RIGHT31TEXT COMPACTION 

PROGRAM”: PRINT “[RIGHT6]BY PAUL MARKOWSKI" 
‘CBYQ 

65 FOR 1=1 TO 1000: NEXT : SYS 5632: RETURN ’GNLN 
100 PRINT “[CLR,RIGHT3]INITIALIZE MESSAGE BUFFER”: 

PRINT “[DOWN2,RIGHT4]ARE YOU SURE Y/N?”‘CBOJ 
105 GET A$: IF A$<>“Y” AND A$<>“N” THEN 105TKQH 
110 IF A$=“N” THEN RETURN ’ECMY 

115 SYS 5632: PRINT “[DOWN2.RIG1 T4]BUFFER INITIALIZED”: 

FOR 1=1 TO 600: NEXT : RET! .LN ’HNGN 
200 GOSUB 900: PRINT “[D0WN2,RIGHT4,RVS]A10FF] 

DD A MESSAGE”: PRINT “[RIGHT4, 

RVS]I[OFF]NSERT A MESSAGE”‘DFBI 
205 PRINT “[RIGHT4,RVS1D10FF1ELETE A MESSAGE”: 

PRINT “[RIGHT4,RVSiQ[OFFjuiT TO MAIN MENU”: 
MS$=“”‘DFQP 

210 PRINT “[DOWN,RIGHT41ENTER OPTION PLEASE”‘BACD 
215 GET A$: IF A$<>“A” AND A$<>‘T” AND A$<>“D” 
AND A$<>“Q” THEN 215’OOSP 
220 IF A$=“D” THEN 240’DFKB 
225 IF A$=‘T” THEN 260'DFRG 
230 IF A$=“Q” THEN RETURN ’ECPC 
232 GOSUB 800: IF LEN (MS$)>251 THEN 200’FPRH 
235 SYS 6036: PRINT : PRINT “[DOWN|MESSAGE ADDED”: 

FOR 1=0 TO 600: NEXT : GOTO 200'IRPP 
240 GOSUB 900: INPUT “[DOWNINUMBER OF MESSAGE TO 
DELETE”;MN%: IF MN%>C THEN 240’FQVN 
242 PRINT : SYS 40848: PRINT : PRINT “[DOWNIIS THIS 
THE MESSAGE Y/N?”‘EIVM 

245 GET A$: IF A$<>“Y” AND A$<>“N" THEN 245TKVM 
250 IF A$=“Y” THEN SYS 6261: PRINT : 

PRINT “[DOWN]MESSAGE DELETED”: FOR I-O TO 600: 
NEXT ’KPEO 

255 GOTO 200’BDBH „ 

260 GOSUB 900: INPUT “|DOWN|MESSAGE NUMBER TO 
INSERT BEFORE”;MN%: IF MN%>C THEN 260'FQKR 
PRINT : SYS 40848: PRINT : PRINT “(DOWN|BEFORE 
THIS ONE Y/N?”‘EIFN 

GET A$: IF A$<>“Y” AND A$<>“N" THEN 265 IKXO 
270 IF A$=“N” THEN 200’DFQG 

275 GOSUB 800: IF LEN (MS$)>251 THEN 200 FPI^ 

SYS 6790: PRINT : PRINT “MESSAGE INSERTED : 

FOR 1=0 TO 600: NEXT 'HNKP 
GOTO 200'BDBK 


262 


265 


280 


285 vjw 1 w ui^uiv 

300 GOSUB^900: PRINT “[DOWN,RIGHT4|SAVE MESSAGES 
TO DISC”‘CEKF .. . x7 

310 INPUT “(DOWN.RIGHT2|FILENAME PLEASE ;NA$ BEFU 
320 OPEN 15.8.15: PRINT#15.“S:”+NA$: CLOSE 15: 

OPEN 1.8,5.NA$+“.P.W”‘GCEJ 

325 PRINT#1, CHR$(144) CHR$(I59):: SYS 6362: CLOSE 1 FUAL 
340 SYS 65484: PRINT “|DOWN,RIGHT4|MESSAGES SAVED : 

FOR 1=0 TO 800: NEXT :RETURN HOIM 
400 GOSUB 900:IF C=0 THEN PRINT“lDOWN|NO MESSAGES”: 
PRINT “|DOWN|PRESS ANY KEY TO CONTINUE”‘GHTN 

402 IF C=0 THEN GET A$: IF A$=“” THEN 402 HKRG 

403 IF C=0 THEN RETURN 'ECDD 

404 PRINT "|DOWN,RIGHT4|LIST TOiSPACE. 
RVS)S[OFF|CREEN OR|SPACE.RVSlP|OFFlRlNTER" BAVL 

405 GET A$: IF A$<>"S” AND A$<>”P” THEN 405’IKPK 
410 IF A$=“P” THEN 465'DFGC 


CONTINUED OVERLEAF 
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TEXT 

COMPACTION CONTINUED 


415 PRINT “[D0WN,RIGHT3]ALL MESSAGES Y/N?”‘BAYJ 
420 GET AS: IF A$<>“Y” AND A$<>“N” THEN 420TKQH 
425 IF A$=“Y” THEN 435’DFMI 

430 INPUT “[DOWN,RIGHT41MESSAGE NUMBER PLEASE”; 

MN%: IF MN%>C THEN 430’EMAM 
432 PRINT “[DOWN]”MN%;: SYS 40848: PRINT : GOTO 461 
'EPGI 

435 J=0: GOSUB 900: PRINT “[DOWN]”: FOR 1=1 TO C: 

MN%=I: PRINT MN%;: SYS 40848: PRINT :J=J+rMHPV 
440 IF J<20 THEN GOTO 460’EGEF 

445 PRINT “[RIGHT4]HIT ANY KEY FOR MORE”:J=0’CDKO 
450 GET AS: IF AS=“” THEN 450’EIIH 
455 GOSUB 900: PRINT “[DOWN]”‘CEKK 

460 NEXT TBBCE 

461 PRINT “[DOWN,RIGHT4]PRESS ANY KEY TO CONTINUE” 
•BAZN 

462 GET AS: IF AS=“” THEN 462’EILK 

463 RETURN ’BAQH 

465 OPEN 1,4: PRINT#1, CHRS(14)“MESSAGES” CHRS(15): 
PRINT# I’FQNR 

470 FOR 1=1 TO C:MN%=I: PRINT# 1,MN%;: SYS 6447’GUUN 
480 SYS 65484: PRINT# 1: NEXT I: PRINT# 1: CLOSE 1: 
RETURN ’GOJM 

500 GOSUB 900: PRINT “[DOWN,RIGHT4]LOAD MESSAGES 
FROM DISC”‘CERH 

510 INPUT “[DOWN,RIGHT2]FILENAME PLEASE”;NAS’BEFF 
515 AS=“D”: LOAD NAS,8,rCKGI 

600 PRINT “[DOWN,RIGHT4]HAVE YOU SAVED YOUR 
MESSAGES Y/N?’”BAQK 

605 GET AS: IF AS<>“Y” AND AS<>“N” THEN 605TKVM 
610 IF AS=“N” THEN RETURN ’ECME 
615 PRINT “[CLR]”: END ’CBFH 

800 GOSUB 900: PRINT “lDOWN,RIGHT4]ENTER MESSAGE 
PLEASE”:MSS=“”: POKE 204,0’EOCN 
805 GET AS: IF A$< CHRS(13) OR AS> CHRS(90) THEN 805 
TSIP 

810 IF AS> CHRS(64) AND AS< CHRS(91) THEN 820’HPWK 
815 IF AS<>“?” AND AS<>“,” AND AS<>“.” AND A$<> 
CHRS(13) AND ASO CHRS(20) AND ASO CHRS(32) 
THEN 805’WCED 

820 IF AS=CHRS(13) THEN AS=“*”: GOTO 828’GMHK 
825 PRINT AS;’BDGK 

827 IF AS=CHRS(20) THEN MSS=LEFTS(MSS,( LEN (MSS)-l)): 
GOTO 805’JCQW 

828 MSS=MSS+AS’CIWP 

830 IF LEN (MSS)>251 THEN PRINT “[DOWN,RIGHT2] 
MESSAGE TOO LONG”: FORI=0 TO 600: NEXT : 

GOTO 840’KTFT 

835 IF AS<>“*” THEN 805’EFTN 

840 B=FRE (0): POKE 204,255: RETURN ’ENKL 

900 C=PEEK (40959)*256+ PEEK (40958): 

D=65535-( PEEK (40957)H:256+ PEEK (40956))’LTDT 
905 PRINT“[CLR|MESSAGES =”;C;“[SPACE2]BYTES FREE = ”;D: 
RETURN CGWR 

Listing 2: TEXT.ASM/GEN 


5 PRINT ‘[CLRjSAVING TEXT.ASM”:ADD=5632: 

HB=INT (ADD/256):LB=ADD-HB*256’IFAU 
10 OPEN 15,8,15: PRINT#15,“S:TEXT.ASM”: OPEN 1,8,1, 
“TEXT.ASM,P,W”‘DSJI 

20 PRINT# 1, CHRS(LB) CHRS(HB);: READ M’ENID 
30 IF M=-l THEN CLOSE 1: CLOSE 15: PRINT “FINISHED”: 
END IICH 

40 PRINT# 1, CHRS(M);’CGXC 
50 READ M: GOTO 30’CEYC 

1000 DATA 72.138, 72,152, 72.169. 0,141, 0. 21.169.144,133, 34.169,159’BETD 

1001 DATA 133. 35.169. 95,133, 36.169. 25,133, 37,169.133.133. 38.169. 26’BGIF 

1002 DATA 133. 39. 32, 43. 22,104,168.104,170.104, 96,160, 0.165. 39.197’BFFG 

1003 DATA 37.240. 17.177, 36,145, 34,200.208.243.230. 35,240, 4.230. 37’BFTH 

1004 DATA 208,235, 56. 96,177, 36,145, 34,200.196, 38.144.247,240,245. 24’BHBI 

1005 DATA 96.234.234.234.234.234.234,234.234.234.234.165. 39,197, 37.240‘BKPK 

1006 DATA 22.160. 1.136,177, 38.145. 34,152.208.248.165, 39,197, 37,240’BGVK 

1007 DATA 6.198, 39.198. 35.208.236. 56.165. 34,229. 38.133, 34,165, 35’BESL 

1008 DATA 233, 0.133, 35,164. 38.169, 0,133, 38,200.136.177, 38.145. 34’BELL 


1009 DATA 196, 36,208,247, 96,160, 9,177, 45,141,255, 20,200,177, 45.133’BGXN 

1010 DATA 34,200,177, 45,133, 35,160, 0.169. 8,141.254, 20,169, I.NI’BDAE 

1011 DATA 253, 20,177. 34,140,252, 20. 32,223, 22,172.252, 20.200.204.255’BHWG 

1012 DATA 20.144.239,234.234.173,254, 20,201, 8,240, 3, 32,247, 23.173’BFQH 

1013 DATA 253, 20,160, 0,153, 0. 21.152,172.253. 20,153, 0. 21. 96.20rBCWH 

1014 DATA 65,176, 22,201, 63,176, 24,201, 46,176, 24,201, 44,176, 24,20rBFXJ 

1015 DATA 42,176, 24,201, 32,176, 24,144, 6,216.233, 60,170,208, 18.162'BFXK 

1016 DATA 4.208. 14,162, 3.208. 10.162. 2,208, 6,162, 1,208, 2.162’BYSJ 

1017 DATA 0,189.117, 23.141,249. 20. 41. 15,141,251, 20,160, 0,189, 86’BDAL 

1018 DATA 23. 42. 46,250, 20,206,254, 20,208, 3. 32. 61. 23,200,204,251’BDBM 

1019 DATA 20,144. 1, 96,192, 8,144.233.173.249, 20.208.228. 72,152, 72’BERN 

1020 DATA 173.250. 20,172.253, 20,153, 0. 21.200,140.253, 20.169, 8,14rBFDF 

1021 DATA 254, 20,104.168.104. 96. 64.240,152,124.223, 16,216.176.112. 96’BIDH 

1022 DATA 120,188.160, 0,126.220, 48.144.192.224.184.127.128.248. 32.208'BJFI 

1023 DATA 156, 56.222, 60,223, 3. 5. 6. 7.137, 4. 6. 5, 5. 4, 6’BQTG 

1024 DATA 6, 4. 4, 8, 7. 5, 5, 4, 4. 6, 8, 4. 5, 4, 5. 6’BGHF 

1025 DATA 6. 8. 6. 9. 72,138, 72,152, 72. 32.149, 22.173.252.159,133’BABK 

1026 DATA 34.173,253.159.133, 35,169, 0.133. 36,169. 21.133. 37,173, O’BEOL 

1027 DATA 21.133. 38,169, 21,133, 39, 32, 43. 22.176, 29.136,152!216!l09’BFGN 

1028 DATA 252.159.141.252.159.173.253.159.105, 0.141.253.159.176! 10.238’BKIP 

1029 DATA 254,159,208, 23,238,255.159,208, 18.173.252,159.133.247!l73!253’BLCQ 

1030 DATA 159,133,248.169. 0,168.145.247. 32. 66, 25,104.168.104!l7o!l04’BIPH 

1031 DATA 96.234.234.234,234.234.234. 14,250, 20,206.254. 20,208!248! 32’BIVI 

1032 DATA 61. 23, 96. 72.138, 72.152. 72,173, 0, 21. 72.216! 24!l09!252’BCMI 

1033 DATA 159,133, 34,173,253,159,105, 0,176, 81,133, 35,173,252,159 133’BIOK 

1034 DATA 38.173.253.159.133. 39,165, 34.141.252.159.165. 35!l4l!253!l59’BJCL 

1035 DATA 165,247.133, 36,165,248,133. 37.120.169, 52.133. 1, 32 ! 9l! 22’BFGM 

1036 DATA 169, 55,133, 1. 88,169, 0.133. 36.169, 21.133! 37!l04!l33’ 38’BDUM 

1037 DATA 198, 38,169, 21,133, 39.165.247.133. 34.165.248.133. 35 ! 32 ! 43’BGBO 

1038 DATA 22,238,254,159,208. 9,238,255,159,208, 4,104, 32, 66 25 104’BFTP 

1039 DATA 168,104.170.104, 96. 72,138, 72.152. 72. 24.165!247!l33! 34!l65’BHRQ 

1040 DATA 248,133, 35,120,169, 52,133, 1,160, 0,177,247,170,101,247,133’BHSI 

1041 DATA 36,165,248.105. 0,133, 37,173,252.159.133, 38,173.253,159.133’BIRJ 

1042 DATA 39. 32, 43, 22,169, 55.133, 1. 88.176, 38,134, 35, 56,173 252’BCGJ 

1043 DATA 159,229, 35.141.252.159.173.253.159.233. 0.141.253.159. 56.173'BJYL 

1044 DATA 254,159,233. 1,141,254,159.173,255,159,233. 0.141,255,159.176’BJ\/M 

1045 DATA 3, 32, 66. 25,104.168.104,170.104, 96, 72,138, 72,152. 72,162’BENM 

1046 DATA 1. 32,201,255,160, 0.169,144,133. 36.169,159,133, 37,205,253’BGBO 

1047 DATA 159.240. 29,120.169, 52.133. 1.177. 36. 72.169. 55.133. 1. 88’BDDO 

1048 DATA 104, 32.210.255.200.208.236.230. 37.165. 37.205.253.159 144 227’BKQR 

1049 DATA 120,169, 52,133, 1,177, 36. 72.169. 55.133. 1. 88.104. 32!210’BDJQ 

1050 DATA 255.200.204,252.159.144.233,240.231.104.168.104.170.104. Oo! 72’BLLK 

1051 DATA 138, 72,152, 72,162, 1, 32,201,255, 32,161,159.104,168,104,170’BHTK 

1052 DATA 104, 96, 32,204,255,162. 14,189, 80, 25, 32.210,255.202,208,247’BHCL 

1053 DATA 96. 89, 82, 79. 77. 69, 77, 32, 69. 82, 79, 77, 32, 79, 78, 72’BWDK 

1054 DATA 138, 72,152. 72, 32,204,255, 32,161,159.104.168,104.170,104. 96’BIFN 

1055 DATA 160, 0,177, 45.201,205.208. 34,200,177, 45.201,206,208, 27,200’BHGO 

1056 DATA 177, 45,141.251,159,200,177, 45,141,250,159,120,169, 52,133, 1’BIEP 

1057 DATA 32. 0,160,169, 55,133, 1. 88,144, 8. 32.204.255.169, 63, 32'BBPP 

1058 DATA 210,255, 96, 72,169, 55.133, 1, 88,104. 32,210.255.120,169, 52’BFJR 

1059 DATA 133, 1, 96, 0. 0. 0. 0. 0, 0, 0, 0. 0, 0, 0, 0. O’BJON 

1060 DATA 0. 0, 0, 0, 0, 0. 0. 0. 0. 0, 0.183.160. 0, 0.169’BM0G 

1061 DATA 183,133,247,169,160,133.248.169, 1,141.248.159,169, 0,141,249’BJBL 

1062 DATA 159,173.249.159,205,251.159.208. 13,173.248.159.205,250.159.208’BMDN 

1063 DATA 5. 32. 70,160, 24, 96.160, 0.177,247.240. 19, 24,101,247,133’BDDM 

1064 DATA 247,144, 2.230.248,238.248,159.208.215.238.249.159.208,210. 56’BKXP 

1065 DATA 96.234.234,234.234.160. 1,162, 0.177.247.141.247,159!l69!l28'BIUP 

1066 DATA 72. 45,247.159.208, 3,232.208, 6.138. 24.125.122.16o!l7o!l89’BGNQ 

1067 DATA 122,160.201, 32.144, 11,201, 42.208. 2,104, 96. 32.212!l59!l62’BGXR 

1068 DATA 0,104, 74.208,219.200.208.209, 96. 26. 12. 4, 2. 73. 65 ! 2’BYJQ 

1069 DATA 84. 2. 76. 2. 87. 89. 2. 32, 2. 69. 2. 68. 2. 7o! 2 ! 46'BPOQ 

1070 DATA 2. 74. 81. 16. 8. 2. 82. 2. 77. 2. 44. 86. 2. 72. 2. 67’BPHl 

1071 DATA 2, 80. 71. 14. 2. 78, 2. 85. 2, 66. 2. 75. 2. 88. 2. 90’BPEJ 

1072 DATA 63. 2. 79. 2. 42. 83, 72,138, 72,152, 72. 32,149, 22. 32. 3’BWVL 

1073 DATA 24.104.168.104.170.104. 96. 44.-1’BGPJ 

Listing 3: TEST 


10 MN%=0: IF AOl THEN POKE 55,144: POKE 56,159:A=1: 

LOAD ’TEST FILE”,8,rJDLL 
15 INPUT “MESSAGE NUMBER PLEASE”;MN%'BEPJ 
20 IF MN%=0 THEN END ’EEIB 
30 PRINT ; SYS 40848: PRINT : GOTO 15’EKQD 
® Paul Markowski 1985 
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Businessmen 
&Hadiers 
finally see 

Q^etoq^e 

on 

printers. 

Businesspeople will welcome it as a new price break-through in near 
letter-quality printers. Hackers will welcome it as a whole new standard in low-cost 
printers. 

On appearances, you'd never suspect it was a low-cost printer. And when 
you see its superb, near letter-quality printing, you'll find it hard to believe that 
the recommended retail price (excluding sales tax) is under $440! 

The Epson ''NLQ Special" gives you so much more than you've learned to expect from a printer in 
this price range. 

It offers superb, near letter-quality printing in a variety of type styles and sizes. 

It prints up to 100 characters per second, and includes a 1024 byte input buffer which reduces the time 
your computer is tied up during printing. 

It produces charts and graphics with a crispness and definition that's seldom been seen on a printer in 
this price range. 

It comes with standard friction feed, optional tractor & cut sheet feeders, and uses standard interfaces. 

In its GX-80 configuration, it emulates Commodore, Apple and IBM printers and operates directly 
with these computers without modification. 

In LX-80 configuration, it offers a variety of built-in word 
processing functions - so you can produce professional¬ 
looking documents even without word processing software 
- and is compatible with almost all other computers. 

There is so much more to the Epson GX-80 and 
LX-80 that you won’t find on other low-cost printers. 

Call in to your nearest Epson dealer and see what's so special 
about the "NLQ Special." 

The"NL£) SPECIAL! by EPSON 

-^AUSTRALIA 

Australia Pty Ltd. 3/17 Rodborough Road. Frcnchs Forest. Sydney (02) 452 5222. Melbourne (03) 543 6455. Brisbane (07) 832 5400. 

'RcKiilcrcd Ttidcmirk o( Epton Corpotiiion EPS0051/R 
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RACING-CAL 

DESIGNER’S 

NOTES 


by Rob Harwood 


The notion of having a computer that is 
able to predict the outcome of a horse 
race must have crossed most people’s 
mind at some stage. 

The Race-Cal programme unfortunately is not able to 
transform your computer into such a machine. 

Now that I have shattered all of your illusions let me 
explain exactly what this powerful piece of software is 
capable of doing. The number of factors governing the 
outcome of a horse race are innumerable. 

Some of those factors are incalculably diverse that it 
would be Impossible to include them in a mathematical 
equation. There is however a large amount of information 
available to the public which we are able to convert Into 
figures, enter into the computer and come up with an 
assessment of how a particular horse should perform, all 
things being equal. All the Information you need to operate 
the programme Is available in sport’s sections of 
newspapers and of course racing publications. When you 
assess a horse without the aid of Race-Cal you must 
mentally weigh up all of the given information and formulate 
in your own mind just how this horse compares with other 
horses in the same race. When you consider the number of 
horses in a race this becomes quite a formidable task. In 
Race-Cal this task Is greatly simplified and because of this 
you are able to think in greater depth about some of the 
governing factors. 

On using the programme you will be requested to make a 
personal assessment on some apects of the horse you are 
rating, the remaining information can be entered directly 
from the newspaper. 

Once all of the information has been entered the screen 
will display a rating figure for the current horse that you are 
rating. This figure is your guide and you will instantly be able 
to compare one horse against another. 

As you can imagine writing a programme of this 
complexity is not something that can be achieved without 
research and also gathering information from people more 
owiedgeable than I in the world of horse racing. Following 
^ comparative, relative mathematical 
structure began to take shape. 

relatively small in comparison to the 
cture that is currently in Race-Cal. 

therefoV^f ^ period of \weeks showed promise and 

validity of the rahng's°^''^^^^'^ ways of improving the 

programme a*!®- "^J°'''^stion needed to operate the 
sport’s writer whn'^^i'^ newspapers I contacted a 
_ newspaper he wmes for ^ the 



On the other side of the coin I discussed the programme 
with a racing personality involved in the Australian racing 
scene. 

Advice and information given by these people proved 
invaluable as their contributions Increased the number of 
variables that the computer could take into account and 
therefore Increased its reliabllty factor. 

Entering the Information into the computer is one thing, 
working out how they related to each other was another. 

For instance, how does the barrier draw relate to the 

9^1 "l‘^. 
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horses weight? What is the relationship between the odds, 
past form, jockey and trainer? 

The relationship of these factors is of primary importance 
as of course this is the heart of Race-Cal. 

So it was back to the testing stage, over the next few 
months many subtle changes were made to the comparative 
structure, each step enhancing the reliability factor. 

Throughout the final stages of development I decided to 
introduce a qualitive control element during testing. 

The computer ratings were made available to a number of 
people prior to the race having been run. 

These people were nottold which horsesto backbutwere 
given the computer rating figures when making their own 
assessment of a particular race. 

Results from these tests were more than satisfactory and 
so that structure became the basis for Race-Cal. 



PUNTER’S PAL 
BY ROB HARWOOD (1985) 
MAIN MENU 

SELECT ONE OF THE 
FOLLOWING:- 

I RACE-CAL 

1b| pot luck 

LOTTO GENERATOR 
6 FROM 38 


After speaking to people who have used Race-Cal over a 
period of time something interesting became evident. 
People who previously had a superficial knowledge about 
the qualities of jockeys, trainers and horses began to 
develop an in-depth knowledge about these and other 
aspects of horse racing. 

This educational element was not an intentional inclusion 
on my part, however this bonus element can only improve 
the quality of the user’s assessments. 

Race-Cal is simple yet effective to operate. It encourages 
you to think about all of the factors in a race and lets you 
evaluate them in a clear logical way. The factors that we will 
never be able to include in an evaluation are things such as 
racing tactics of other riders, how good a start a horse gets 
and so forth. 


pAL $24.95 

^ p&p included 

A 4 in 1 Program for the 
Commodore 64/128 

DISK or CASSEHE 

A. RACE-CAL: Ideal for trifector bets. This 


Remember that in all gambling sports there is an element 
of LUCK and that is something you can’t calculate but I hope 
you have some. , , 

Rsccrr 

RACE-CAL. BARRIER RATING. 


BAilRIER NUMBER 
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simple to use but sophisticated program 
will assess and compare various factors 
and generate rating figures. The rating 
figures are a guide as to how a horse 
should perform in relation to others in the 
same race. All information required is 
obtained from the racing section of major 
newspapers and information sheets that 
come with the program show where. 

- HAS A PROVEN AUSTRALIAN TRACK RECORD! - 

B. POT-LUCK: A fun random number horse 
selection generator. 

C. LOTTO GENERATOR: Selects any 
number of six number combinations for 
your LOTTO sheet. 

D. 6 FROM 38: Numberselection generator. 

- GET LUCKY WITH YOUR 64 - 

KIM BOOKS- 

82 Alexantder Street, Crows Nest 2065 NSW 

n Enclosed please find Cheque/Money Order for $24.95 

n Please bill my Bankcard/Mastercard/Visa $24.95 

Signature 

of holder.Exp.Date. 

Card 

Number. 

Please forward me a DISK □, CASSETTE □ copy of 

PUNTER’S PAL for the C64 or Cl 28 computers. 

NAME. 

ADDRESS. 

1 CITY.P/CODE. 

tick appropriate box 
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LETTERS TO THE EDITOR 

Address letters to: The Editor, Commodore Magazine, Kim Books 82 Alexander Street Crows Nest 2065 


ILLAWARRA BBS 


Dear Sir, 

The information In the Vol 5 No 3 issue of 
Commodore Magazine regarding the lllawarra 
BBS was only partly correct. I don’t know 
who gave you the information so I can’t 
blame anyone. 

The lllawarra BBS started operations in July 
1985 and went to 24 hour operation In late 
August 1 985 using 2 X 1 541 drives and an 
Avtek automatic answer modem. September 
’85 saw another upgrade to 1 onlySFD 1001 
one Megabyte Drive. 

The system not only caters for Commodore 
64 users, but any and all types of computers, 
with seven different makes with software 
downloads for each type available. 

The next update will be online games on 
Saturday/Sunday as these days, at this time 
are the quietest. 

The telephone number to this Wonderful 
and Glorious System Is: (042) 84 4354 

Would you also ask your readers to listen to 
the voice and the information that is being 
given as when I realised what was 
happening I put a message on the 
answering machine that is on my voice 
phone regarding the correct telephone 
number for the IBBS but to no avail. Either I 
was blasted with a carrier straight away or 
when the voice answered the person(s) 
simply hung up the phone. To my mind the 
height of rudeness. 

Enough of my complaints, I like the 
magazine and I wish you all the best for the 
coming Festive Season. 

Yours Faithfully 
John Simon 
IBBS 


CLASSIFIED ADVERTS 


To the Editor: (Mr. Beamish) 

May I please suggest an idea to you that I 
have seen in some of Commodore’s English 
magazinesthat I thinkcould besuccessful in 
your magazine. 

My idea is that you could start up a classified 
section on the last few pages. In England 
they have been a big success. People could 
write in what they would like to buy, sell or 
even write addresses for Commodore User 
Pen-Friends. 

As I said before this is only an idea but I 
would like to see you go through with it very 
much. 

My name is Damien Beeby and I am 12 years 
of age. Could you please reply. 

Yours Faithfully 
Damien Beeby 
Healesville VIC. 

ED - Good Idea Damien!. We will publish 
subscribers Non-Commercial Classified 
adverts free for the time being and see how it 
goes. 

Thanks for your interest. 


FAST-DISK/BASAD/DOS 5-1 

Dear Mr Beamish, 

Paul Blair put me in a quandary with his 
excellent programs Fast-Disk and Basad. 
They clash In memory and Basad, of course, 
occupies the whole block. 

However, DOS 5.1 supplied with the 1541 is 
quite a versatile system. As it starts at 52224 
It would also clash with Fast-Disk starting at 
52480. I have lowered Fast-Disk by 12 
pages so that It now starts at 49408 which 
fits in nicely with DOS 5.1 with space each 
end for Its operation. As DOS 5.1 Is a wedge 
its symbols work quite satisfactorily through 
the Fast-Disk routine. 

I havealsocoupled Fast-Dlskand DOS5.1 in 
the Basic loading program so for a couple of 
extra seconds have them both constantly 
available. On the few occasions I need to 
quit DOS, for example, to use the symbols 
elsewhere, Fast-Disk is still available. 

Incidentally, from talks with some local 
users, I feel there may be many who do not 
understand the full facilities of DOS 5.1. 
Particularly I for load and run and % to load 
m/I programs I find very useful. I have a 
Datassette permanently attached to the 
C64 along with the 1541 as I use tape for 
backup of new utilities and most other new 
programs. As you know if you specify the 
device number with @#1, DOS 5.1 works 
with tape. Obviously no change In speed is 
available, but otherwise your Fast-Disk 
seems quite transparent to the tape 
operation. I am happily enjoying a quite 
reasonable DOS together with really 
highspeed disk loading. 

On the question of DOS 5.1, do you think it 
may be worth a small box in a future edition 
setting out the full range of commands and 
facilities of DOS 5.1? 

Finally, my Fast-Disk does not operate when 
the printer is switched on. Its an 801 on the 
same serial line. The disk runs but never 
stops at the normal end of the program. 

Why, I don’t know, but the solution Is easy- 
keep the printer off except when needed. In 
any case I always Include an “Is printer on’’ 
prompt in my programs, simply in an attempt 
to avoid error stoppage which is likely to be a 
problem to get going again. 

Best wishes to you and the team. 

Tony Atkinson 
Croydon VIC. 

ED-Thanks for the information in your letter. 
Tm sure the readers would be very interested 
in your relocation listings. 

Can we have a copy for publication please? 


ADVENTURE CLUB 


Dear Merv, 

I am writing to advise you that my club, 
“Adventure News’’ is finally up and running. 
The club is Australia wide, and for 
Commodore 64, SX64 and C-128 users only, 
and really of use only to adventurers. 


A copy of the club newsletter Is enclosed. If 
you could give the club a mention in the 
Commodore Magazine, I would be extremely 
grateful. 

Way back in Vol 4 No 4, you mentioned that 
any club that registers with you would 
receive 2 copies of Commodore Magazine, 
In exchange for the club newsletter or 
details of their activities. Does this offer still 
stand? 

Yours from the adventurers pit 
Stuart Elflett 
MSF 550, 

Toogoolawah, Qld 4313 

ED-Adventure News is very well written and 
I think it will be of interest to a number of our 
readers. 

Yes the Free Club Subscription is still current 
(only one copy now though) and you are on 
our list. Good luck! 


Dear Mervyn, 

I get the Commodore Magazine 
because I have a Vic 20 and was 
wondering if you could help me. 

We were told Commodore will not be 
making computers anymore. Is this 
true? 

If it’s not true we will probably be 
buying a Commodore 128, Comm¬ 
odore 64 & Disk Drive or an Apple 11C. 

Which one should we get? 

Confused - Craig Chapman 
Lorn N.S.W. 

ED - Did I read correctly - an APPLE 
lid! Oh Dear Dear No! That’s not 
civilised. The 128 is a good machine 
and I suspect a lot Cheaper. 
Unfortunately the Vic-20 is no more 
for this world but a good contact is: 
ACT VIC-20 USERS ASSOCIATION 
25 KERFERD ST. 

WATSON A.C.T. 2602 


LISTINGS ON DISK- 
TOUCH TYPE/DECIMALS 

Dear Mervyn, 

If a key other than a numeral Is pressed 
when entering a numeric variable the “redo 
from start’’ error signal appears after 
“RETURN”. This can be avoided by entering 
a string variable e.g. x$ and getting the value 
by X = VAL(x$). A check for errors in the 
string is fairly easy and the attached 
program 1 does this. 

However, if you are learning touch typing, as 
I am I you are entering decimal numbers it is 
easy to hit a comma Instead of a full stop. 
This is disaster as the “extra ignored 
message appears and only those figures 
before the comma are accepted as the 
I have tried to stop this by redirecting the 
error vectors 768, 769 but this message 
does not appear to got this way. Do your 
machine language experts have a methoo to 
CONTINUED ON PAGE 18 
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A 

HOLIDAY 

PROGRAM 

Paul Blair 


This one is forthe youngerfry, to help pass the time away. It 
uses sprites in a quite cunning way. No more clues than that. 

The listing uses NICE LISTER conventions to show 
Commodore characters, and H ELPOUT for typing accuracy. 
If you don’t need HELPOUT, omit the last 5 characters 
(’XXXX) on the end of each line. 

3x3 E.T. PUZZLE 


1000 REM: 3X3 E.T. PUZZLE’BOBW 

1010 REM: AUTHOR UNKNOWN’BODX 

1020 REM: PUBLIC DOMAIN SOFTWARE’BVUB 

1030 REM: AMENDED FOR COMMODORE MAGAZINE’BDRE 

1040 :’ABHW 

1050 POKE53280,12:POKE53281,9:DIMA$(11):C=11:VC=9’FGKH 
1060 PRINT “[CLS]”:V=53248’CHQC 

1070 POKEV+21,255:POKEV+23,255:POKEV+29,255’GXUI 
1080 3FORE=200T0207:POKE2040+E-200,E:FORD=64*ET064*E+62: 
READS’NFVP 

1090 POKED,S:NEXT:POKEV+39+E-200,C:NEXT’HPTJ 
1100PRINT”1<BLK>,SPACE5,<0><0><0><0><0><0><0> 
<0><0><0><0><0><0><0><0><0><0><0>]”’BAGI 
1110 F0RD=1T016:PRINT”[SPACE5,RVS,SPACE181”:NEXT’FGBC 
1120 PRINT “[HOME,DOWN10,RIGHT14,<RED>,RVS,SPACE2]” 
’BAMY 

1130 POKEV+8,112:POKEV+9,106’ENQC 

1140 FORD=105TO64STEP-rFHJC 

1150 POKEV,D:POKEV+l,D’DIGC 

1160 POKEV+2,112:POKEV+3,D’ELCE 

1170 POKEV+4,160+64-D:POKEV+5,D’GOHI 

1180 POKEV+6,D:POKEV+7,106’ELIH 

1190 POKEV+10,160+64-D:POKEV+l 1.106’GSEK 

1200 POKEV+12,D:POKEV+13,106+106-D’GRUC 

1210 POKEV+14,1 12:POKEV+15,106+106-D:NEXT’HULE 

1220 :’ABHW 

1230 PRINT”|H0ME1”;:F0RD=1T018:READA$’FJBC 
1240 PRINT”[RIGHT24]’';’BB0C 

1250 F0RL= 1T0LEN(A$):PRINTMID$(A$,L, 1 );:FORH= 1 TOl00: 

NEXT:NEXT’LYTL 

1260 PRINT:NEXT:POKE198,0’DHKE 
1270 GETA$:IFA$<>CHR$( 13)THEN 1270’GNDI 
1280 PRINT”[H0ME1”;’BBFD 

1290 F0RD= 1 T023:PR1NTSPC(24)”[SPACEl 61”;:F0RB= 1TO30- 

NEXDNEXT’KQHP 

1300 PRINT”[H0ME]”;:F0RD=1T08:READA$’FICA 
1310 PRINT”|RIGHT241”;’BBOA 

1320 FORL= 1 TOLEN(A$):PRINTMID$(A$,L, 1 );:FORH= 1 TOl00- 

NEXT:NEXT’LYTJ 
1330 PRINT:NEXrCBJA 

1340 FORL= 1 T02E3:NEXT:F0RD=PEEK(V+ 14)TOPEEK(V+l4) 
+48STEP.25: POKEV+14,D:NEXT’QFFQ 
I 3‘;n PRINT “[D0WN2,RIGHT24,<RED>1PRESS RETURN” 

•POKE198,0’CGMK 

1 rFTA$TFA$<>CHR$( 13)THEN1360’GNDI 

370 PRINT”(H0ME1”;’BBFD 

380 FO^= 1 T023:PRINTSPC(24)”1 SPACE 161”;:FORB= 1TO30: 

NEXT:NEXT'KQHP 

1390 FORD= I TOl I :READA$(D):NEXT: A=INT(RND( 1 )*11)+1 
’TcVAP 

1400 fORD=0TO7: A(D)=(VAUMID$(A$(A),D+1.1 ))-l ):NEXT 
’JBCH 



1410 FORD= 1 T09:READB(D):NEXT:POKEV+21,0’HPEF 
1420 PRINT “lHOME,DOWN21,BLK,SPACE2]O.K HERE COMES 
THE SCRAMBLED PICTURE’”BAQL 
1430 POKEV+A(0)*2,64:POKEV+A(0)*2+1,64’HUYI 
1440 POKEV+A( 1 )*2,112:POKEV+A( 1 )*2+1,64’HVSJ 
1450 POKEV+A(2)*2,160:POKEV+A(2)*2+1,64’HVXK 
1460 POKEV+A(3)*2,64:POKEV+A(3)*2+1,106’HVAL 
1470 POKEV+A(4)*2,112:POKEV+A(4)*2+1,106’HWON 
1480 POKEV+A(5)*2,160:POKEV+A(5)*2+1,106’HWTO 
1490 P0KEV+A(6)*2,64:P0KEV+A(6)*2+1,148’HVM0 
1500 POKEV+A(7)*2,112:POKEV+A(7)*2+l,148’HWAH 
1510 C=0:FORD=0TO7:C=C+21A(D):POKEV+21 ,C: 

FORH= lTO200:NEXT:NEXT’ODIN 
1520 PRINT “[HOME,DOWN20,WHTrBAFC 
1530 PRINT “[HOME,DOWN4]” SPC(30)”11SPACE212[SPACE2]3 
[DOWN2,LEFT714[SPACE215[SPACE2]6[DOWN2,LEFT717 
[SPACE218[SPACE219’”CDLP 
1540 PRINT “|HOME,DOWN19,RIGHT5|MOVE”’BALF 
1550 GETM$:M=VAL(M$):IFM$=””THEN 1550’GPSK 
1560 IFM<1THEN1550’DGUH 
1570 M1=VAL(LEFT$(STR$(B(VC)),2))’EPDK 
1580 M2=VAL(MID$(STR$(B(VC)),3,1))’ERTM 
1590 M3=VAL(MID$(STR$(B(VC)),4,1))’ERVN 
1600 M4=VAL(RIGHT$(STR$(B(VC)), 1 ))’EPBF 
1610 IF MOMl AND MOM2 AND MOM3 AND MOM4 
THEN 1550’NQDM 

1620 PRINT “(H0ME.D0WN19,RIGHT5.RVS,SPACE4.0FF1: 

IFM <4THENY=64’FGKI 
1630 IFM>3ANDM<7THENY=106’G1JH 
1640 IFM>6THENY=148’EGOH 
1650 IFM=10RM=40RM=7THENX=64TJIL 
1660 IFM=20RM=50RM=8THENX=112TKDM 
1670 IFM/3=INT(M/3)THENX=160'HKDM 
1680 IFM=VC+3THENGOSUB1790’FIFM 
1690 IFM+3=VCTHENGOSUB1810'FIDM 
1700 IFM=VC+1THENGOSUB1830’FIDE 
1710 IFM+1=VCTHENGOSUB1850’FIAG 
1720 A(VC-1 )=A(M-1):A(M-1 )=99:C=0'GWKK 
1730 FORD= 1 T08:IFA(D)=DTHENC=C+ ITMGK 
1740 NEXT:IFC=7THEN2440’EHCH 
1750 VC=M:M5=M5-l-rD,lXJ 

1760 PRINT “lHOME,RIGHT18.DOWN14.RIGHT7,RVS,BLKl 
M0VES10FF,WHT1":M5’BDUN 
1770 GOTO1540’BEHI 
1780 REM: UP’BDJJ 

1790 FORL=YTOY-42STEP-l:POKEV+A(M-l)*2-l-l,L:NEXT: 

RETURN’NTVV 
1800 REM: DOWN'BFBD 

1810 FORL=YTOY-l-42:POKEV-t-A(M-1 )*2-l-1 .L.NEXT RETURN 
'LSMN 

1820 REM: LEFTBFSE 

1830 F0RL=XT0X-48STEP-1:P0KEV-1-A(M-1)*2,L NEXT 
RETURN’MSMP 
1840 REM: RIGHTBGUH 

CONTINUED OVERLEAF 
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CONTINUED FROM PREVIOUS PAGE 

1850 F0RL=XT0X+48:P0KEV+A(M-1)*2,L:NEXT:RETURN 
’KRDQ 
1860 :’ABHH 

1870 REM: DATA FOR 8 SPRITES’BQSN 
1880 :’ABHJ 

1890 DATA 0, 0, 0, 0, 0. 31. 0, 1,224, 0, 6, O’BBXP 

1900 DATA 0, 24, 15, 0, 96.127. 0, 65,255, 0,135,255’BKFJ 

1910 DATA 1, 31,255, 2, 63.252. 4, 63,252, 4.127,252’BLEK 

1920 DATA 4,255,128, 8.254, 15. 8,254,127, 16,254,187’BOAM 

1930 DATA 19,252,159, 35.248,143. 39,248,112. 47,240. 15’BRVN 

1940 DATA 35.224, 0, 0. 0, 0,224. 0. 0, 30, 0,127’BGAM 

1950 DATA 1,255.128, 92, 0. 16,252,198, 17,255,241, lO’BOIP 

1960 DATA 255,248,146,255.252.212, 63,254, 32, 31,255,143’BTHR 

1970 DATA 31,255,255,231,255,255,211,255.255,208, 16, 68’BTMS 

1980 DATA 216.122, 68,144.154,137. 17,113,2,226,134, 18’BRES 

1990 DATA 21, 27, 41, 42. 36,196, 0, 0, 0, 0. 0, O’BFNR 

2000 DATA 128, 0. 0,103. 0. 0. 24.240, 0, 0, 28, O’BGAA 

2010 DATA 0, 3. 0, 31.128.192,255,248, 32,255,252, 32’BNFC 

2020 DATA 255,252, 16.255,254, 16,192,126, 8,128, 63, 8’BPXE 

2030 DATA 63, 31, 4,220,158. 4, 46, 94, 4,102,126, 8’BKKE 

2040 DATA 62, 78, 8,156,192, 8,127, 0,136, 32,230, O’BLPF 

2050 DATA 35. 1,192. 34. 0, 63, 33,128, 0, 16,120, 28’BKXG 

2060 DATA 16, 7,255. 10, 0, 1, 9,147, 14, 4,100, 8’BHDG 

2070 DATA 2, 24, 16, 1. 32, 16. 0,192, 32, 0, 54,192’BIAH 

2080 DATA 0, 9, 0, 0, 4, 3, 0, 2,132, 0, 1,104’BCHH 

2090 DATA 0, 0,145. 0, 0. 65. 0. 0,126, 0, 0, 72’BEMI 

2100 DATA 4, 68, 2,132,137.154, 73, 40,180,137, 36, 9’BMTC 

2110 DATA 145, 65. 0. 18, 65, 32, 34,130, 32, 36,132, 24’BMDD 

2120 DATA 73, 0. 4, 74, 0, 0. 74, 3,142,144, 7,255’BHKD 

2130 DATA 145, 30,254,144.248, 62, 16, 16, 62, 75, 11,158’BPNG 

2140 DATA 160,134.124. 32, 64. 24, 16, 56, 0, 8, 7, O’BJDG 

2150 DATA 2. 0, 14. 0, 0,136. 0, 65,136, 14, 50, 48’BHVG 

2160 DATA 1,140, 80,192, 64, 96. 48, 48,160, 8, 9, 64‘BKII 

2170 DATA 4, 6, 64, 2, 0,128, 67, 33, 0, 34,198, O’BGPI 

2180 DATA 18. 24, 0, 20, 96, 0, 36,128, 0, 43. 0, O’BGWJ 

2190 DATA 68. 0, 0, 4, 0. 0, 24, 0, 0, 32, 0, O’BBIJ 

2200 DATA 64, 0, 0,128, 0, 0, 0, 0, 38, 0, 0, 33’BDNB 

2210 DATA 0. 0. 32, 0, 0.144, 0, 3,156, 0, 31, 18’BFHD 

2220 DATA 3,190, 9. 31,166, 8, 30, 3, 4, 24, 3, 4’BFKE 

2230 DATA 24. 3, 7, 27,131, 4, 31.129,132, 14, 1,162’BKUG 

2240 DATA 12, 97.130, 12,232, 3, 15,192, 2, 15, 0, I’BJUG 

2250 DATA 4. 0. 1. 0. 0. 1,0, 0, 1, 1,128, 17’BBGG 

2260 DATA 0,120,225.248, 7, 2, 6, 0. 12, 1,255,240’BJUI 

2270 DATA 0, 64, 0.128, 32, 0, 65. 32, 0. 62. 32, O’BGSJ 

2280 DATA 0, 64. 0. 0. 64, 0,192, 64, 0, 35, 64, O’BFAK 

2290 DATA 28, 64. 0. 0. 32. 0,128. 32, 0,112, 32, O’BHLL 

2300 DATA 8.160, 0, 7, 32, 0, 0, 16, 0, 0. 16, O’BDQC 


2310 :’ABHX 

2320 DATA “(YELJYOUR OBJECTIVE’MS TO RECREATE.THIS 
PICTURE.”OF E.T.”’BBYN 

2330 DATA ,”[BLK]HE IS MADE UP”,OF A GRID OF,3X3 SPRITES, 
YOU CAN MOVE’BIUN 

2340 DATA EACH CELL INTO,THE VACANT ONE„”[GRN]YOU DO 
THIS BY“,”TYPING THE NO.”’BDUQ 
2350 DATA OF THE CELL YOU,WANT TO MOVE’BXKJ 
2360 DATA ,”[<RED>]NOW PRESS RETURN”’BBTI 
2370 DATA “THE GRID IS SET”,”UP LIKE THIS:[*]”’BBSN 
2380 DATA “(WHT,SPACE2]1[SPACE2]2[SPACE2]3”,”1SPACE2]4 
[SPACE2]5[SPACE2]6”,”[SPACE2]7[SPACE2]8ISPACE29”’BCGK 
2390 DATA ,”[BLK]SO TYPING 8”,”WILL DO THIS”’BCHN 
2400 DATA 82167534,17654238,85476213,3285647rBKAF 
2410 DATA 38764152,41257360,64132875,61873425BKRG 
2420 DATA 57638241,84657312,28654137’BBXF 
2430 DATA 0024,0135,0260,0157,2468,0359,0480,0579,0680’BTBK 
2440 POKE54296,l5:A 1 =54291 :R1=54292:A2=54277;R2=54278’FPLN 
2450 H1=54287:L1=54286:W1=54290:H2=54273:L2=54272: 
W2=54276’GWQR 

2460 POKEA1,102:POKER1,0:POKEA2,96:POKER2,0’EWIL 
2470 READH,L,D:IFH=0THEN2690’EMEK 
2480 POKEW1,0:POKEW2,0’CJXJ 
2490 POKEWl,17:POKEW2,33’CLIK 
2500 POKEH1,0:POKEH 1 ,H:POKEH2,0:POKEH2,H’ETSF 
2510 POKEL1,0:POKEL1,L:POKEL2,0:POKEL2,L:FORE=OT07*D: 
POKER2,136’JGLM 

2520 POKERl, 136:NEXT:GOTO2470’DMSF 
2530 DATA 34, 75, 6, 51, 97, 6, 45,198, 1, 43, 52, ‘BHHI 
2540 DATA 38,126, 1, 43, 52, 1, 34, 75, 6, 25,177, lO’BJLK 
2550 DATA 28,214, 6, 57,172, 6, 51, 97, 1, 48,127, I’BJYL 
2560 DATA 43, 52, 1, 48,127, 1, 38,126, 6, 64,188, lO’BKQM 
2570 DATA 38,126, 6, 68,149, 6, 64,188, 1, 57,172, TBKKN 
2580 DATA 51, 97, 1, 45,198, 1,40,200, 6, 34, 75, lO’BJKO 
2590 DATA 40,200, 6, 34, 75, 6, 68,149, 4, 76,252, 2’BJUP 
2600 DATA 64,188, 12, 68,150, 6,102,196, 6, 90, 99, I’BLGH 
2610 DATA 86, 52, 1, 76,126, 1, 86, 52, 1, 68, 75, 6’BHKH 
2620 DATA 50,177, 10, 56,214, 6,114,172, 6,102, 97, I’BMHJ 
2630 DATA 96,127, 1, 86, 52, 1, 96,127, 1, 76,126, 6’BJDK 
2640 DATA 128,188, 10, 76,126, 6,136,149, 6,128,188, TBOBM 
2650 DATA 114,172, 1,102, 97, 1, 90,198, 1, 80,200, 6’BLDM 
2660 DATA 68, 75, 10, 80,200, 6, 68, 75, 6,136,149. 4’BKCN 
2670 DATA 152,252, 2,128,188, 12,136,149, 6,204,194, 6’BPOP 
2680 DATA 192,254, 6,152,252, 6,136,149, 12, 0, 0, O’BLBP 
2690 POKERl, 14:POKE54296,0:POKEH 1,0:POKEL1,0:POKEH2,0: 
POKEL2,0:END’HJLU 

Presentation (C) Paul Blair 1985 


LETTERS - CONTINUED FROM PAGE 16 

stop this? 

The only answer I have found is to use GET, 

Program 2 attached is an example of this 
with pretty complete protection against 
errors. It maybe of use to your readers. 

Yours Sincerely 
David Belson 
Buderim, Old. 

ED - Can anyone help David with this one? 


Listing 1 

lO PRINT “ICLR.DOWNI” 

20 INPUT “A NUMBER”;A$:D=0 
30 FOR X=l TO LEN (A$) 

40 B$=MID$(A$,X,l) 

50 IF X=l AND B$=”0” THEN PRINT “|UP2|”: GOTO 20 

60 IF X=l AND (B$=”-” OR B$=”+”) THEN 100 

70 IF D>0 AND B$=”.” THEN PRINT “(UP2r’: GOTO 20 

80 IF B$=”.” THEN D=l; GOTO 100 

90 IF B$<”0" OR B$>”9” THEN PRINT “|UP2|”: GOTO 20 

100 NEXT X 

110 PRINT “IDOWNr’AS 



Listing 2 

10 PRINT “[CLR,DOWNl” 

20 C=0:D=0:A$=””:B$=”” 

30 FOR X=1 TO 39: PRINT “ NEXT X:X=0: PRINT: PRINT “[UP21” 
40 C$=“ENTER A NUMBER ’ ”: PRINT C$ 

50 GET A$: IF A$=“” THEN PRINT“[RVS)<[OFF,LEFTl”;: GOTO50 
60 PRINT A$; 

70 C=C+1: IF C=I AND A$=CHR$(13) THEN PRINT “(UP21”:C=0: 
GOTO 40 

80 IF A$=CHR$(13) THEN PRINT “[UP]” SPC(LEN (C$)+ LEN 
(B$))” “: GOTO 130 
90 B$=B$+A$ 

100 A$=””: GOTO 50 

130 FOR X=1 TO LEN {B$):B1$=MID$(B$,X,1) 

140 IF X=1 AND B1$=”0” THEN PRINT “[UP2]”: GOTO 20 

150 IF X=1 AND Bl$=”-” THEN 190 

160 IF D>0 AND Bl$=”.” THEN PRINT “[UP2]”: GOTO 20 

170 IF Bl$=”.” THEN D=l: GOTO 190 

180 IF B1$<”0” OR Bl$>”9” THEN PRINT “[UP2|”: GOTO 20 

190 NEXTX 

200 PRINT “[DOWNj”B$ 
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Michael Spiteri 


THE VIC MAGICIAN’S 
APPRENTICES HALF YEAR EXAM 

Our apprentice has to face his half-year 
exams. The copy below has been rewritten 
since the originals were stolen from the 
‘Government Printers’. For his work books 
our apprentice has used the Commodore 
Magazine and The VIC Users Guide that 


comes with your machine. 

Incentive 


You can complete the exam just for fun or 
Superior Software have offered to give a 
copy of their VIC FAMILY PACK (15 
programs) to the first correct entry they 


receive. Send to: 

SUPERIOR SOFTWARE 
20 Larool Cres., 

Seaford 
Vic 3198 

NOTE: Send direct to Superior Software not 
the magazine. 


INSTRUCTIONS 

NAME:. 

Each examinee will refrain from using spells and other mysteries and non 
computing skills he/she has acquired. Answer the questions in the space 
provided and in accordance with any special instructions that may be given 
v/ithin this paper. 

ADDRESS:. 

The examiner will frown upon scribbled comments such as “Kiss me I’m a 
frog” and the use of invisible ink is forbidden. 

PHONE:. 


Signed 


Vie Amiga Wiz. (Syd) Question 2 - Written answers 

Frog Pond - 

Princesses may apply 

a) How much RAM does the standard Vic contain which is useable? 


Question 1 - Multiple Choice _ 

(Circle the correct solution) 

a) What is the micro processor used by the Vic? 

i) 6502 

ii) Z80 

iii) 68000 

b) What BASIC command followed by a number executes a 
machine-language program? 

i) RUN 

ii) SYS 

iii) GOTO 

iv) USR 

c) Which one of the following commands is NOT Vic BASIC? 

i) PEEK 

ii) CMD 

iii) TO 

iv) DRAW 

d) Which of the following will not execute a program? 

i) RUN 

ii) GOTO 

iii) GOSUB 

iv) None of the last three. 

e) Which Vic-20 command clears the screen? 

i) CLS 

ii) CLR 

iii) CLEAR 

iv) None of the above. 


b) Write a ONE-LINE program that PRINTs “HELLO” down the 
screen non-stop. 


c) What combination of keys makes the Vic auto-load-run a program? 


d) How many screen locations are there? 


e) What BASIC command changes the screen colour to BLUE and 
the border to RED? 


f) What BASIC command sets the volume to 14? 


g) How many pins does the memory expansion cartridge slot have? 


Question 3 - Practical 

On a separate sheet of paper, write programs that: 

a) Will create a siren sound. 

b) Will fill the screen the random characters. 

c) Work out the multiplication of 5 numbers. 
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i^he 


by David Bergmeier 

I mentioned in the last article I would discuss randomness in 
sound effects. Well here goes. Type in the six initialization 
lines 




10 S=54272 

20 FORl=0TO24:POKES+I,0:NEXT 
30 POKES+24,15 
40 POKES+5,0 
50 POKES+6.240 
60 POKES+4,17 

Now for the randomness. For a real random sound effect 
add the following 

70 FORI=lTO100 
80 POKES+l.lNT(RND(l)*256) 

90 NEXT 
100 POKES+1,0 

All this sound effect does is POKE a random number into 
the pitch. (Great for making computers sound as though 
they can think. ) To add a bit more regularity to random 
sounds it is best to return to the FOR-NEXT loop. Enter the 
initialization (lines 10-60), then add the following 

70 FORI=lTO10 

80 R=INT(RND(1)*90)-1-10 

90 FORJ=lTOR 

100 POKES-l-l,J 

110 NEXT 

120 NEXT 

130 POKES-1-1,0 

How do you work out the value of ‘R’ (line 80) ? I’m Qlsd you 
asked. I used the following formula for any two (positive or 
negative) integers provided the first one is greater than the 
second (ie, A>B). The formula is 


80 R=INT(RND(1)*(B-A))-I-A 

So line 80 generates a random number between 10 and 
100. The FOR-NEXT loop simply counts from 10 to the 
random numberand changesthe pitch. Every time you run it 
, this sound effect will be different from the last. ^ 

modified. Change line 90 to count from 100 to R ' 

You could also calculate two random numbers (R1 and R2). 
Then (provided the ranges are correct) alter Hne 90 
from R1 to R2 with the correct STEP (according to wheth 
Fi1 is greater than R2 or not). Make sure when sel^ecting 

ranges, thatRI isALWAYSgreaterthan R2(STEPl)orhn is 

ALWAYS less than R2 (STEP-1). 

Up till now we have been using i'2°i 

understanding how it works. Firstly the 
volume (like S-F24) that ranges from zero to in 

volume is what the note will sound at until at is turneo om 
comes into effect only when the attack and decay ave 
completed. The ATTACK is the rate at which the tone rises 
from zero volume to maximum volume. The DEoA 
time for the volume to fade from maximum volume to me 
SUSTAIN volume. (If the SUSTAIN volume is the maximum 
15, then the DECAY is not heard.) The RELEASE is the time 
for the SUSTAIN volume to fade away to zero once me 
SUSTAIN has been stopped. The ATTACK DECAY and 
release rates range from super fast to supor slow , 
according to the value POKEd into the ADSR memory 
locations (S+5 and S+6). The values are as follows 


VALUE 

ATTACK 

RATE 

0 

0.002 

secs 

2 

0.008 

secs 

2 

0.016 

secs 

3 

0.024 

secs 

4 

0.038 

secs 

5 

0.056 

secs 

6 

0.068 

secs 

7 

0.080 

secs 

8 

0.1 

secs 

9 

0.25 

secs 

10 

0.5 

secs 

11 

0.8 

secs 

12 

1 

sec 

13 

3 

secs 

14 

5 

secs 

15 

8 

secs 


DECAY & RELEASE RATE 

0.006 secs 
0.024 secs 
0.048 secs 
0.072 secs 
0.114 secs 
0.1 68 (secs 
0.204 secs 
0.240 secs 
0.3 secs 
0.75 secs 
1.5 secs 
2.4 secs 
3 secs 
9 secs 
15 secs 
24 secs 


To control the ADSR , BIT 0 of the waveform must be 
understood and used. This particular BIT is a controller for 
the ADSR. It determines when the ATTACK will start and 
when the SUSTAIN will finish. Have a quick glance at the six 
initialization lines. The waveform (POKE S+4) is always 
17,33,65 or 1 29. However, to select the waveform you only 
have to select 16,32,64 or 1 28 (BITs 4,5,6 and 7 of S4-4). The 
sound will not work with only these settings though. You 
MUST firstly set BIT 0 in S+4 to a one. (Hence the POKE of 
S+4 with 164-1,32+1, etc.) This enables the sound to be 
heard Instantly the pitch is specified. When BIT 0 in S+4 is 
changed to a zero, the RELEASE part of the sound begins. 
And since there was no release in the ADSR settings, the 
sound went super-fast to zero. (It sounds almost 
instantaneous.) To use the ADSR change the initialization 
lines to read the following 

10 S=54272:AT=12:DK=14:SU=5:RE=15 
20 FORI=0TO24:POKES+I,0:NEXT 
30 POKES+24,15 
40 POKES+5,AT5l:16+DK 
50 POKES+6,SU*16+RE 
60 POKES+4,16 

To hearexactly whatthe ADSR sounds like, enterthe next 
few lines 

70 POKES+1,20 

80 PRINT” PRESS A KEY TO START ADSR “ 

90 GETA$:IFA$=“”THEN90 
100 POKES+4,17 

110 PRINT” PRESS A KEY TO END ADSR “ 

120 GETA$:IFA$=“”THEN120 
130 POKES+4,16 

140 PRINT“ PRESS A KEY TO END ” 

150 GETA$:IFA$=“”THEN150 
160 POKES+1,0 
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Don’t press a key to end the ADSR until you have fully 
heard the ATTACK , DECAY and SUSTAIN. Only when you 
think the volume of the note is constant can you press a key 
to end the ADSR. Then when the sound has fully died away, 
press a key to end the sound effect. This is only a simple 
program but it fully demonstrates the ADSR. Try changing 
the values of the ADSR in line 10 but remember, some of the 
times (see table) are so short that there is practically no 
difference between one value and another, (eg. values 0 to 
5) 

Now comes the adding of ADSR to other sound effects , 
and this can be quite tricky. Firstly let’s add an ADSR to the 
first sound effect in this article. Enter the six initialization 
lines (with the ADSR POKEs) and then add the following 
lines 

70 POKES+4,17 

80 FORI=lTO500 

90 POKES+l,INT(RND(l)*255)+l 

100 NEXT 

no POKES+4,16 

120 POKES+1,0 

Then change the ADSR in line 10 to 
10 S=54272:AT=0:DK=13:SU=5:RE=15 

Now we have a totally random sound effect that decays 
away slowly. The changes by now should be fairly obvious so 
go ahead and create some really interesting sound effects. 

Now we know everything about ADSR, what about an 
explosion ? Well, type in the first six initialization lines, using 
a noise waveform (POKES+4,128). 

Now add the followlng:- 
70 POKES+1,10 
80 POKES+4,129 
90 FORI=lTO1000:NEXT 
100 POKES+4,128 

The ADSR should look something like any of the following 
10 S=54272:AT=0:DK=0:SU=15:RE=15 
10 S=54272:AT=0:DK=0:SU=15:RE=15 
10 S=54272:AT=12:DK=0:SU=15:RE=15 
10 S=54272;AT=10:DK=9:SU=10:RE=13 

Of course there are many other possible ADSR settings. 
Try a few and see what happens. 

By nowyou may well have realized that so far we have only 
been using one voice. Didn’t it mention somewhere on the 
box there were three ? Well the box was correct. There are 
three voices each of them able to sound Independently. The 
locations of all the voices are as follows •- 
LOCATION DESCRIPTION 

S+0.Low byte of pitch (voice 1) 

..HI byte of pitch (voice 1) 

S+2 . Lo\n byte of pulse width (voice 1) 

S-\r3 .HI byte of pulse width (voice 1) 

.Waveform (voice 1) 

.Attack*16 + decay (voice 1) 

.Sustaln*16 + release (voice 1) 

.Low byte of pitch (voice 2) 

..Hi byte of pitch (voice 2) 

.Low byte of pulse width (voice 2) 

S+10.Hi byte of pulse width (voice 2) 

S+11.Waveform (voice 2) 

S+12.Attack^l 6 + decay (voice 2) 

S+13.Sustain*16 + release (voice 2) 

S4-14.Low byte of pitch (voice 3) 

S+1 5.Hi byte of pitch (voice 3) 

S+1 6.Low byte of pulse width (voice 3) 

S-f-17.Hi byte of pulse width (voice 3) 

S-F18.Waveform (voice 3) 

S-f 19.Attack^l 6 + decay (voice 3) 

S+20.Sustain*16 + release (voice 3) 


To use any voice you must first initialize it. This will be the 
same six lines as previously used except that Instead of 
doing it only for voice 1 , it will have to be doneforeach voice 
that is to be used. Examples of sound effects using multiple 
voices can be found in the attached program which also 
contains some advanced one voice sound effects. I won’t 
bother to explain these * the changes that can be made 
should be quite obvious. 

Good luck and with a bit of rearranging of my program, you 
should come up with some astounding noises. I wouldn’t 
turn up the siren too much (I think there’s a law against loud 
Police sirens not coming from Police cars.) 

The next article delves into the murky depths of ring 
modulation , filters and synchronization. 

(C) Copyright DAVID BERGMEIER June 1985 


SFX GENERATOR 3 


10 REM “################################” 
’BAPC 

20 REM “#[SPACE21SOUND EFFECTS GENERATOR V-3 #’”BAXG 
30 REM “# BY DAVID BERGMEIER JUNE 1985 #”’BABH 
40 REM“################################” 
’BAPF 

100 PRINT “[CLR,WHT]”;: POKE 53280,6: POKE 53281,0’DRJA 
110 PRINT “ < SOUND EFFECTS GENERATOR VERSION 3 ‘’’’BAEG 
120 PRINT “[DOWN,RED,RIGHT31PLEASE MAKE YOUR 
S ELECTION[GRN,DOWNl”’BASF 

130 PRINT “[RVS,SPACE1211 RANDOM SOUNDS #1[SPACE101” 
’BABF 

140 PRINT “[RVS,SPACE12]2 RANDOM SOUNDS #2[SPACE101” 
’BADG 

150 PRINT “1RVS,SPACE12]3 RANDOM SOUNDS #3[SPACE101” 
BAAI 

160 PRINT “[RVS,SPACE1214 RANDOM SOUNDS #4[SPACE10r' 
’BACJ 

170 PRINT “[RVS,SPACE1215 ADSR TEST1SPACE171’”BAAJ 
180 PRINT “[RVS,SPACE1216 EXPLOSION #11SPACE141”’BAEK 
190 PRINT “[RVS,SPACE1217 EXPLOSION #2[SPACE141’”BAGL 
200 PRINT “[RVS,SPACE1218 RANDOM WITH ADSRISPACEIO]'’ 
’BAGE 

210 PRINT “[RVS,SPACE1219 ADSR GONG[SPACE171’”BAIE 
220 PRINT “[RVS,SPACE12io - NEXT PAGE -SPACEU.HOME]” 
’BADF 

230 GET A$: IF A$=”” THEN 230’EIED 
240 IF A$=”0” THEN 280’DFUD 
250 IF VAL (A$)<1 THEN 230’EIMF 

260 ON VAL(A$) GOSUB 1000,2000,3000,4000,5000,6000,7000,8000, 
9000’DXEM 
270 GOTO lOO’BDAE 

280 PRINT “|CLR,WHT]”;: POKE 53280,6: POKE 53281,0'DRJJ 
290 PRINT “ < SOUND EFFECTS GENERATOR VERSION 3 
300 PRINT “[DOWN,RED,RIGHT31PLEASE MAKE YOUR 
SELECTION[CYN,DOWNl”’BASG 
310 PRINT “[RVS,SPACE 1211 HI-LO SIREN[SPACE151”’BAVF 
320 PRINT “[RVS,SPACE1212 WARNING|SPACE191’”BAAF 
330 PRINT “[RVS,SPACE1213 STEAM WHISTLE[SPACE13] BADH 
340 PRINT “[RVS,SPACE12)4 SIREN #1(2 VOICES)|SPACE5 BAPI 
350 PRINT “(RVS,SPACE12|5 SIREN #2(3 VOICES)|SPACE51 BASJ 
360 PRINT “[RVS,SPACE1216 SIREN #3 (2 VOICES)(SPACE51 BATK 
370 PRINT“(RVS,SPACE 12)7 FUNNY SIREN ( 2 VOICES )(SPACE21 

380 PRINT “(RVS,SPACE 12|8 WEIRD SIREN ( 2 VOICES )|SPACE2r' 
’BAPN 

390 PRINT “|RVS,SPACE12|9 HOSPITAL ( 2 VOICES )|SPACE51 
’BABO 

400 PRINT “|RVS,SPACE12|0 - NEXT PAGE -SPACEl31'"BAJF 
410 GET A$: IF A$=”” THEN 410’EIED 
420 IF A$=”0” THEN lOO’DFLD 
430 IF VAL (A$)<1 THEN 410’EIMF 

440 ON VAL(A$) GOSUB 10000,11000,12000,13000,14000,15000, 
16000,17000,18000’DHY0450 GOTO lOO’BDAE 
1000 REM “### RANDOM SOUNDS ONE ###'”BAQY 
1010 S=54272’BGJV 

1020 FOR 1=0 TO 24: POKE S+I,0: NEXT ‘GKDA 
1030 POKE S+24,15’C GO X 

CONTINUED OVERLEAF 


’BAEP 
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1040 POKE S+5,0’CELY 

1050 POKE S+6,240’C GO A 

1060 POKE S+4,17’CFQB 

1070 FOR 1=1 TO 200’DFBC 

1080 POKE S+1, INT ( RND (1)*256)’FLYG 

1090 NEXT ‘BAEC 

1100 POKE S+1,0’CEHV 

1110 RETURN ‘BAQU 

2000 REM “### RANDOM SOUNDS TWO ###”’BAPA 
2010 S=54272’BGJW 

2020 FOR 1=0 TO 24: POKE S+I,0; NEXT ‘GKDB 

2030 POKE S+24.15’CGOY 

2040 POKE S+5,0’CELA 

2050 POKE S+6,240’CGOB 

2060 POKE S+4,17’CFQC 

2070 FOR 1=1 TO 20’DEDD 

2080 R=INT ( RND (1 )*90)+10’FKCH 

2090 FOR J=1 TO R’DDNF 

2100 POKE S+1,J’CEIW 

2110 NEXT‘BAEV 

2120 NEXT‘BAEW 

2130 POKE S+1,0’CEHA 

2140 RETURN ‘BAQY 

3000 REM “### RANDOM SOUNDS THREE ###”’BANC 
3010 S=54272’BGJX 

3020 FOR 1=0 TO 24: POKE S+I,0: NEXT ‘GKDC 

3030 POKE S+24,15’CGOA 

3040 POKE S+5,0’CELB 

3050 POKE S+6,240’CGOC 

3060 POKE S+4,17’CFQD 

3070 FOR 1=1 TO lO’DECE 

3080 R1=INT ( RND (1 )*90)+rFKDI 

3090 R2=INT ( RND (1)*155)+100’FNAJ 

3100 FOR J=R1 TO R2'DFOY 

3110 POKE S+1,J’CEIY 

3120 NEXT ‘BAEX 

3130 NEXT ‘BAEY 

3140 POKE S+1,0’CEHC 

3150 RETURN ‘BAQB 

4000 REM “### RANDOM SOUNDS FOUR ###”’BAHC 
4010 S=54272’BGJY 

4020 FOR 1=0 TO 24: POKE S+I,0: NEXT ‘GKDD 

4030 POKE S+24.15'CGOB 

4040 POKE S+5,0’CELC 

4050 POKE S+6,240’CGOD 

4060 POKE S+4.17’CFQE 

4070 FOR 1=1 TO 20'DEDF 

4080 R=INT ( RND (1)*90)+10’FKCJ 

4090 FOR J=100 TO R STEP -I'FGLJ 

4100 POKE S+l.J'CEIY 

4110 NEXT‘BAEX 

4120 NEXT‘BAEY 

4130 POKE S+1,0’CEHC 

4140 RETURN BAQB 

5000 REM “### ADSR TEST ###”’BAGB 

5010 S=54272:AT=13:DK=14:SU=3:RE=15’FAAH 

5020 FOR 1=0 TO 24: POKE S+I,0: NEXT ‘GKDE 

5030 POKE S+24,l5’CGOC 

5040 POKE S+5,AT*16+DK’EJNF 

5050 POKE S+6,SU*16+RE’EJQG 

5060 POKE S+4,I6’CFPF 

'^^JNT “ICLR.WHTISTART ATTACK”’BAMI 
.non S+I.20‘CFHH 

’^^KE S+4,17’CFQI 

sin ™ next ‘EHHB 

. ™NT “IDOWN.CYNISTART DECAY”‘BADD 

5 5000: NEXT ‘EHJD 

.Mn "IDOWN.PURJHOLD SUSTAIN”’BAQF 

5 to pp.mI"' ™ 5000: NEXT ‘EHJF 

Sifin “IDOWN.GRNISTART RELEASE'”BAFH 

5 60 POKES+4,16’CFPG 

5180 ddik.Jt' ™ next ‘EICJ 

«0 PRINT “|DOWN,<RED>jEND ADSR”’BAEJ 


5190 POKE S+l,0’CEHJ 

5200 FOR 1=1 TO 1000: NEXT ‘EHFC 

5210 RETURN ‘BAQA 

6000 REM “### EXPLOSION #1 ###”’BAFC 

6010 S=54272:AT=0;DK=0:SU=15:RE=15’FYVI 

6020 FOR 1=0 TO 24: POKE S+I,0: NEXT ‘GKDF 

6030 POKE S+24,15’CGOD 

6040 POKE S4-5,AT*16+DK’EJNG 

6050 POKE S+6,SU*16+RE’EJQH 

6060 POKE S+4,128’CGRG 

6070 POKE S+1,10’CFGH 

6080 POKE S+4,129’CGSI 

6090 FOR 1=1 TO 1000: NEXT ‘EHFK 

6100 POKE S+4,128’CGRB 

6110 RETURN ‘BAQA 

6120 REM ‘BARB 

6130 REM IN THIS EFFECT THE PITCH IS”’BAEK 

6140 REM “[SPACE2]NOT TURNED OFF SO THE SOUND’”BAVL 

6150 REM “[SPACE21CAN STILL BE HEARD FADING”’BAGL 

6160 REM “[SPACE2]AWAY EVEN THOUGH THE CODE”’BARM 

6170 REM “(SPACE2]FOR THE EFFECT HAS BEEN”’BAEM 

6180 REM “[SPACE2]COMPLETED.”’BANK 

7000 REM “### EXPLOSION #1 ###”’BAFD 

7010 S=54272:AT=15:DK=15:SU=0:RE=0’FYVJ 

7020 FOR 1=0 TO 24: POKE S+I,0: NEXT ‘GKDG 

7030 POKE S+24.15’CGOE 

7040 POKE S+5,AT*16+DK’EJNH 

7050 POKE S+6,SU*16+RE’EJQI 

7060 POKE S+4,128’CGRH 

7070 POKE S+1,10’CFGI 

7080 POKE S+4,129’CGSJ 

7090 FOR 1=1 TO 25000: NEXT ‘EIEM 

7100 POKE S+4,128 

7110 RETURN ‘BAQB 

8000 REM “### RANDOM SOUND WITH ADSR ###”’BABH 

8010 S=54272:AT=0:DK=13:SU=0:RE=0’FXQK 

8020 FOR 1=0 TO 24: POKE S+I,0: NEXT ‘GKDH 

8030 POKE S+24,15’CGOF 

8040 POKE S+5,AT*16+DK’EJNI 

8050 POKE S+6,SU*16+RE’EJQJ 

8060 POKE S+4,17’CFQI 

8070 FOR 1=1 TO 750’DFLJ 

8080 POKE S+1, INT ( RND (1)*256)’FLYN 

8090 NEXT ‘BAEJ 

8100 POKE S+1,0’CEHD 

8110 RETURN ‘BAQC 

9000 REM “### RANDOM SOUND WITH ADSR ###”’BABI 

9010 S=54272:AT=0:DK=10:SU=0:RE=0’FXNL 

9020 FOR 1=0 TO 24: POKE S+LO: NEXT ‘GKDI 

9030 POKE S+24,I5’CGOG 

9040 POKE S+5,AT*16+DK’EJNJ 

9050 POKE S+6,SU*16+RE’EJQK 

9060 POKE S+4,16’CFPJ 

9070 FOR 1=100 TO 10 STEP -15’FIDM 

9080 POKE S+l,rCEHL 

9090 POKE S+4,16’CFPM 

9100 POKE S+4,17’CFQE 

9110 FOR J=1 TO 1000: NEXT ‘EHGG 

9120 NEXT‘BAEE 

9130 POKE S+1,0’CEHH 

9140 RETURN ‘BAQG 

10000 REM “### HI-LO SIREN ###”’BAUU 

10010 S=54272;AT=0:DK=0:SU=15:RE=0’FXSB 

10020 FOR 1=0 TO 24: POKE S+I,0: NEXT ‘GKDX 

10030 POKE S+24,15’CGOV 

10040 POKE S+5,AT*16+DK’EJNY 

10050 POKE S+6,SU*16+RE’EJQA 

10060 POKE S+4,17’CFQY 

10070 FOR I=I TO 5’DDIA 

10080 POKE S+1,20’CFHB 

10090 FOR J=1 TO 500: NEXT ‘EGMD 

10100 POKE S+1,10’CFGT 

10110 FOR J=1 TO 500: NEXT ‘EGMV 

10120 NEXT‘BAET 

10130 POKE S+1,0’CEHW 

10140 RETURN‘BAQV 

11000 REM “### ALIEN WARNING ###”’BAGW 
11010 S=54272:AT=0:DK=0;SU=15:RE=0’FXSC 
11020 FOR 1=0 TO 24: POKE S+I,0; NEXT ‘GKDY 
11030 POKE S+24,15’CGOW 
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11040 POKE S+5,AT*16+DK’EJNA 

11050 POKE S+6,SU*16+RE’EJQB 

11060 POKE S+4,17’CFQA 

11070 FOR 1=1 TO 30’DEEB 

11080 FOR J=60 TO 100 STEP 4’EHTD 

11090 POKE S+1,J’CEID 

11100 NEXT ‘BAES 

11110 FOR J=100 TO 60 STEP -4THJX 

11120 POKE S+1,J’CEIW 

11130 NEXT‘BAEV 

11140 NEXT ‘BAEW 

11150 POKE S+1,0’CEHA 

11160 RETURN ‘BAQY 

12000 REM “### STEAM WHISTLE ###’”BAIX 



12010 S=54272;AT=0:DK=0:SU=15:RE=irFYRD 
12020 FOR 1=0 TO 24: POKE S+I,0: NEXT ‘GKDA 
12030 POKE S+24,15’CGOX 

12040 POKE S+5,AT*16+DK: POKE S+12,ATH«16+DKTUUB 

12050 POKE S+6,SU*16+RE: POKE S+13,SU*16+RE’IUAC 

12060 POKE S+4,33: POKE S+11,17’EMEE 

12070 POKE S+1,34: POKE S+8,43’ELPE 

12080 POKE S+4,32: POKE S+11,16’EMCA 

12090 FOR 1=1 TO 1000: NEXT ‘EHFF 

12100 POKE S+4,33: POKE S+11,17’EMEY 

12110 FOR 1=1 TO 500: NEXT ‘EGLX 

12120 POKE S+4,32: POKE S+11,16’EMCB 

12130 FOR 1=1 TO 1000: NEXT ‘EHFA 

12140 POKE S+1,0: POKE S+8,0’EJFC 

12150 RETURN ‘BAQY 

13000 REM “### SIREN ONE ###”’BAYX 

13010 S=54272:AT=0:DK=0:SU=15:RE=0’FXSE 


13020 FOR 1=0 TO 24: POKE S+I,0: NEXT ‘GKDB 
13030 POKE S+24,15’CGOY 

13040 POKE S+5,AT*16+DK: POKE S+12,AT*16+DK’IUUC 

13050 POKE S+6,SU*16+RE: POKE S+13,SUH:16+RE’IUAD 

13060 POKE S+4,17: POKE S+11,17’EMGF 

13070 FOR 1=1 TO 3’DDGD 

13080 FOR J=10 TO 160’DGZF 

13090 POKE S+1,J’CEIF 

13100 POKE S+8,J+3’DFFX 

13110 NEXT ‘BAEV 

13120 FOR J=160 TO 10 STEP -I’FHHB 

13130 POKE S+1,J’CEIA 

13140 POKE S+8,J+3’DFFC 

13150 NEXT ‘BAEA 

13160 NEXT‘BAEB 

13170 POKE S+1,0: POKE S+8,0’EJFA 

13180 RETURN ‘BAQD 

14000 REM “### SIREN TWO ###”’BAXY 

14010 S1=54272:S2=54279:S3=54286:AT=0:DK=0-SU=15-RE=0 

’HPHE 


14020 FOR 1=0 TO 24: POKE SI+1,0: NEXT ‘GLWD 
14030 POKE S1+24,15’CHNA 

14040 POKE S1+5,AT4j 16+DK: POKE S2+5 AT*16+DK- 
POKE S3+5,AT*16+DK’MHOI 
14050 POKE S1+6,SU*16+RE: POKE S2+6,SUH:16+RE- 
POKE S3+6,SU*16+RE’MHXJ 
14060 POKE Sl+4,33: POKE S2+4,17: POKE S3+4 17’GUCD 
14070 FOR 1=1 TO 3’DDGE ’ 

14080 FOR J=10 TO 160’DGZA 

14090 POKE S1+1,J: POKE S2+l,J+3: POKE S3+1 J-3’ITRH 
14100 NEXT ‘BAEV ^ hkh 

14110 FOR J=160 TO 10 STEP -I’FHHB 
14120 POKE S1+1,J: POKE S2+l,J+3: POKE S3+1 J 3’TTRR 
14130NEXT‘BAEY ’ 

14140 NEXT‘BAEA 

14150 POKE Sl+1,0: POKE S2+l,0: POKE S3+1 O’GRIC 
14160 RETURN‘BAQC 

15000 REM “### SIREN THREE ###’”BABA 

15010 S1=54272:S2=54279:AT=0:DK=0:SU=15:RE=0’GHPC 

15020 FOR 1=0 TO 24: POKE Sl+1,0: NEXT ‘GLWE 
15030 POKE S1+24,15’CHNB 

15040 POKE S1+5,ATH:16+DK: POKE S2+5,AT*16+DK’IVWE 

15050 POKE S1+6,SU*16+RE: POKE S2+6,SU*16+RE’IVDF 

15060 POKE Sl+4,33: POKE S2+4,33’ENFB 

15070 FOR 1=1 TO 255’DFLF 

15080 POKE Sl+l,rCFGA 

15090 POKE S2+l,255-rDIDC 

15100 NEXT ‘BAEW 

15110 POKE Sl + 1,0: POKE S2+1,0’ELWC 


15120 

16000 

16010 

16020 

16030 

16040 

16050 

16060 

16070 

16080 

16090 

16100 

16110 

16120 

16130 

17000 

17010 

17020 

17030 

17040 

17050 

17060 

17070 

17080 

17090 

17100 

17110 

17120 

17130 

17140 

17150 

17160 

17170 

17180 

18000 

18010 

18020 

18030 

18040 

18050 

18060 

18070 

18080 

18090 

18100 

18110 

18120 

18130 

18140 

18150 

18160 

18170 


RETURN ‘BAQY 

rEM “### FUNNY SIREN ###’”BAAB 
S1=54272:S2=54279:AT=0:DK=0:SU=15:RE=0’GHPD 
FOR 1=0 TO 24: POKE Sl+1,0: NEXT ‘GLWF 
POKE S1+24,15’CHNC 

POKE S1+5,AT*16+DK: POKE S2+5,AT*16+DKTVWF 

POKE S1+6,SU*16+RE: POKE S2+6,SU*16+RETVDG 

POKE SI+4,17: POKE S2+4,17’ENJC 

J=30: FOR 1=1 TO 255 STEP 5’FKYD 

POKE SI+1,1: POKE S2+1,J’ELSE 

FOR K=1 TO 20: NEXT :J=J-.5’GKEF 

POKE Sl+1,0: POKE S2+1,0'ELWC 

FOR K=1 TO 1/3: NEXT ‘FFFD 

NEXT ‘BAEA 

RETURN ‘BAQB 

rEM “### WIERDO SIREN ###’”BADD 

S1=54272:S2=54279:AT=0:DK=0:SU=15:RE=0’GHPE 

FOR 1=0 TO 24: POKE Sl+1,0: NEXT ‘GLWA 
POKE S 1+24,15’CHND 

POKE S1+5,ATH:16+DK: POKE S2+5,AT*16+DKTVWG 

POKE S1+6,SU*16+RE: POKE S2+6,SU*16+RETVDH 

POKE Sl+4,17: POKE S2+4,17’ENJD 

FOR 1=1 TO I’DDEB 

FOR J=1 TO 255 STEP 2’EGAD 

POKE Sl+l,rCFHD 

POKE S2+l,( INT ( SIN (J)*20)+50)’GPPF 
NFXT ‘RAFA 

FOR J=255 TO 1 STEP -2’FGPF 
POKE S1+1,J’CFHE 

POKE S2+l,( INT ( SIN (J)*20)+50)’GPPD 
NEXT ‘BAEE 
NEXT ‘BAEF 

POKE Sl+1,0: POKE S2+1.0’ELWE 
RETURN ‘BAQB 

REM “###[SPACE141###”’BANC 

S1=54272:S2=54279:AT=0:DK=0:SU=15:RE=10'GIOF 

FOR 1=0 TO 24: POKE Sl+1,0: NEXT ‘GLWB 
POKE S1+24,15’CHNE 

POKE S1+5,AT*16+DK: POKE S2+5,AT*16+DK IVWH 

POKE S1+6,SU*16+RE: POKE S2+6,SU*16+RETVD1 

POKE SI+4,129: POKE S2+4,33'EOJE 

POKE Sl+1,20: POKE Sl+4,128’EOAF 

FOR 1=1 TO 1000: NEXT ‘EHFE 

POKE S1+4,33’CGNE 

FOR 1=1 TO 5’DDIC 

POKE Sl+1,30: POKE S2+1,32‘ENUA 

FOR J=1 TO 500: NEXT ‘EGMF 

POKE SI+1.20: POKE S2+1.23’ENTC 

FOR J=1 TO 500: NEXT ‘EGMB 

NEXT ‘BAEF 

POKE Sl+1,0: POKE S2+I.0‘ELWE 
RETURN ‘BAQB 



□ 


Commodore Magazine Volume 5. Number 5 23 





BOOKS & THINGS 

Reviews of the latest Software & Publications available. 


MICROCOMPUTER ART 


Title: Microcomputer Art 
Author Ross Edwards 
Publisher: Prentice-Hall Australia 
Price: R.R.P. $19.95 
Reviewed by: Peter Davies 


Fantastic, beautiful.... were my first 
reactions to flicking through the 
pages of this book. Patterns 
generated by mathematical form¬ 
ulae hold afascination for me and I 
was tempted to begin typing in 
programs immediately. I resisted 
on the grounds that it might be 
betterto read the instructionsfirst. 


The book constructively and 
methodically develops programs 
to emulate engraving machines 
which were used from 1780 to 
1914 to satisfy the then trend of 
engraved decorative objects. To 
provide added interest, a short 
account of these mechanical 
devices is included along with 
their relationships with a computer. 
Because of this mechanical aspect 
I query the title ‘art’ - the contents 
of the book are not quite what one 
would expect from the title. 


Chapters introducesthe readerto 
the framework program required 
for the rest of the book and begins 
by plotting a circle on the screen 
using polar co-ordinates (see my 
article In ‘Commodore Magazine’, 
Vol. 5 No 1 !). It should be stressed 
here that an understanding of the 
mathematics involved is not requi¬ 
red to be able to use any of the 
programs in the book. In some 
sections I would have liked to have 
seen more mathematical detail 
rather than ‘it may be deduced 
that’ but I am certain the average 
reader would not! 


Different versions of the framework 
programs are given for eight 
different microcomputers. For the 
Commodore 64, two versions are 
offered. One is ‘straight’ BASIC as 
per the user’s manual and we all 
know how slow that is. The other Is 
fora Superexpandercartridgeand 
can easily be adapted to Simon’s 
Basic and the like as well as other 
Commodore computers. 


The machine language assistar 
of Superexpander really is essen 
programs wh' 
bASIC would take overSOminu 
to run. I suspect the BA^ 
program will produce elonga 
pictures as the difference in pi 
height and width has not be 
jaKen into account. Y = Y/1.23 
in ['. ^'^Perexpander has this b 
n. have not looked in detail at 
programs for other machines. 

The remaining chapters deal v 

complex cur 
with literally hundreds of examp 
643 to be exact. Variable value 
©produce each one are given 



large table at the end of the book. 
The examples take up around 130 
pages of the 227 page book - 
apparently leaving little experi¬ 
mentation for the reader. How 
untrue-within minutesoftyping in 
any program you can have distinct¬ 
ly different patterns from those in 
the book. 

I ran a few programs and they 
worked perfectly. The workhorse 
section of each is as small as four 
lines and could be crunched into 
less with a small saving in running 
time; the longest programs can be 
typed in just a few minutes. 

I suspect a further time saving in 
running time could be made by 
using DEF FN and calling the 
function from within the loops 
Instead of the BASIC interpreter 
having to deal with a complex 
formula for each increment of a 
loop. 

The main reason for the author’s 
inclusion of so many diagrams Is 
because he is trying to develop 
patterns in the values and relation¬ 
ships between the variables so as 
to predict the characteristics of a 
pattern before running it. In 
chapter 8 a summary and guide 
lines are provided as a conclusion. 
This aspect gives the Impression 
that the book was originally some 
sort of thesis. 

The advanced patterns in the last 
section of the book are extremely 
intricate, perhaps too much so for 
adequate resolution on a normal 
TV set (and maybe also on a 
monitor for some of them). The 
detail will only be shown on a 
plotter (such as the 1520). An 
omission from the programs is a 
routine for a plotter though it is 
easy to write one for oneself. 

Dotted around the text are nume¬ 
rous quotations which I found of 
interest. Also little programming 
gems are found here and there to 
speed up execution. These techni¬ 
ques use the symmetry of the 
patterns to plot as many as four 
points from a single step In a loop. 
It is fascinating to watch the 
pattern grow from four directions 
simultaneously. 

So what use is the book and for 
whom ? 

It is fun - well, I think so but it is not 
everyone’s cup of tea. One can 
approach the book from an art, 
graphics, maths or computing 
point of view so there’s something 
to learn for everyone. The book is a 
must for every school/college 
library for use in all of these areas- 
I am certainly going to recommend 
its purchase by the school I work 
for (the graphics teacher was 
‘rapt’). 

For home use, unless, like myself, 
the purchaser has an interest in 


such things then it is not a book 
the average amateur computerist 
would buyfor him/herself buts/he 
would be pleased to receive it as a 
present. 

Value for money ? Well, with 130 
pages of examples there are only 
about 90 pages of explanations 
and programs - even then most of 
the programs are the same but 
different. Again it depends on your 
interest in the topic. 


COMMODORE 64 
GRAPHICS 


Title: Commodore 64 Graphics 
An Advanced Guide 
Author: Shaffer & Shaffer Applied 
Research & Development 
Publisher: Prentice-Hall Australia 
Price: R.R.P. $23.95 
Reviewed by: Peter Davies 

This book Is a sequel to Commodore 
64 Color Graphics: A Beginner’s 
Guide (which I have not seen). 
While there are references to the 
first book, it is not essential to have 
it to be able to use the second one. 

The authors point out that to use 
the Advanced Guide you do need 
to have some programming know¬ 
ledge but that knowledge does not 
have to be extensive. By following 
the chapters and entering the 
‘Tools’ as you come across them, 
by the end of the book you have a 
Simon’s Basic type of program 
with some machine language 
assistance. Commands are not 
programmable as such but are 
called by various GOSUBS. 

The book can be used in either of 
two ways. You can simply type in 
the program and follow the 
instructions on how to use it. 
However, each tool has an expla¬ 
nation as to how it works so you 
can also improve your program¬ 
ming skills by understanding what 
is going on. Some of the explana¬ 
tions are, of necessity, mathema¬ 
tical but don’t let this put you off- 


you don’t have to read them if you 
don’t want to. All the explanations 
are given in sections with a blue 
border after the instructions for 
the use of a particular subroutine. 

The writing style is very easy to 
follow and understand, and exa¬ 
mples using each subroutine are 
given so you can see what it does. 
Also there are a few exercises to 
ensure that you have got the idea. 



After an introductory chapter a 
macine language program has to 
be entered for the HiRes routines, 
PLOT, PAINT and SPRITE com¬ 
mands. A double check is made of 
the entered machine code and I 
found the code to be error free in 
use. In fact I have not found any 
errors in any of the programs 
though there Is a minor error in the 
matrix notation on page 123 which 
I would think is typographical. 

I found the book most Interesting 
in that you can quickly learn to 
draw your own shapes and paint 
them. A completed picture can be 
used later in the book as a 
background for a game involving 
sprites. In particular I was delighted 
with the explanations for transla¬ 
tion, rotation and dilation (moving, 
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spinning and enlarging) of ashape 
you have designed especially as I 
was teaching the topic to Year 11 
students at the same time as I was 
working my way through the book. 

If your interest is in designing your 
own games you should gain a 
great deal from this book. The 
great advantage is that the 
programs you develop are self 
contained and so do not rely on a 
cartridge to help. An added 
advantage Is that a picure can be 
saved on disc and read straight 
into memory. 

My main interest at the moment is 
In developing educational software 
and there are inumerable uses of 
this book for this purpose. An 
offshoot that never entered my 
head was spotted by my daughter 
- the program can be used to 
design knitting patterns and 
compare colour combinations. 

Compared with many ‘computer* 
books this one represents exce 
llent value for money. 


MORE GRAPHICS!! 

TitleiCOLOUR GRAPHICS: 

A Beginners Guide 
Author Shafferand Shaffer Applied 
Research & Development 
Publisher: Prentice-Hall Australia 
Price: R.R.P. $23.95 
Reviewed by: Wayne B. Hodges 

This is one of two well set-out 
manuals which examines and 
instructs you In the art of Creating 
Colour Graphics forthe Commodo¬ 
re 64. There are two books in the 
series for Beginners and Advanced 
users. In the beginners guide you 
will expect to learn about creating 



A BEGimm^s Ginm 


Graphics for your C-64, providing 
you do have an understanding of a 
few simple Commands, such as 
Program, line number, goto and 
run. Now if you can handle this, 
away we go. 


As soon as you open this book you 
are Immediately confronted by a 
two masted Sailing Ship from 
another era, which is colourfully 
designed by your Commodore 64. 
This book promises this as a 
reward for your efforts. The 
introductions aside weget into the 
first Chapter. 

Each Chapter displays a portion of 
the program needed to draw your 
ship, along with a list of instructions 
about your task. The first Chapter 
will establish the organisation of 
the final program, and to familiarize 
you with “subroutines”. This Sector 
is quite elementary and easy 
going for most users. 

The next Chapter involves itself 
with the recreating of the picture 
of your reward, “The Ship”, exami¬ 
ning High Resolution Graphics, 
and the implementation in your 
programme. An interesting thing, 
each section of the programme is 
quite thoroughly examined and 
provides exactly what It does, and 
an excellent line-by-line description. 

In the next Chapter the plot 
thickens indeed, you will learn 
how to paint the blue Background 
Sky, and how to draw In the water. I 
am enjoying this trip immensely, 
each step is explained In “Plain 
Everyday English”. 

After a few Chapters your efforts 
are reviewed, and it is apparent by 
this stage (at Chapter Four) you 
have learned to: 


★ Turn on High res Graphics 

★ Change the colour codes 

★ Turn the screens pixels to 
background colour 

★ Plot specific and random points 

★ Change colours of a block and 

★ return to text mode 

★ ZAP the main routine to draw a 

new picture. 


♦ u . .—HOI yuur; 

the back, impossible I hei 
mutter, but no it is not wil 
most exciting advance in le 
about Graphics. This book 
well explained you will ; 
yourself. 




-- ••''V- iMiiiys oeq 

take shape, more to the pol 
the shape of a Ship, this pc 
your tour into Graphics 
actually are ready to add the 
to your picture. The final Chj 
teache you about sprite grap 
which is most useful for 
amateur programmers who 
to know more or simply as a 
step in your learning procesj 


At the end of this manual you will 
find a number of appendices for 
reference, such as design charts, 
colour charts and a further reading 


Conclusion 

After experiencing this Book 


myself I honestly found it most 
Instructive and thoroughly intere¬ 
sting. The main thrust of this 
“Beginners Guide to Colour 
Graphics” Is to show you simply 
and surely how to create your own 
works of art. I found it a must for 
anyone interested in furthering 
their knowledge here, I can 
recommend this book for a start 
and then progressing to more 
advanced Graphic design. 

I SPY!! 


Title: SPY VS SPY 
Tape-64 

AuthonMike Riedel 
Publishers: Beyond Software 
Price: R.R.P. $24.95 
Reviewed by: William Leader 

Spy vs Spy is based on the MAD 
magazine’s cartoon of the same 
name. Two spys, one black, one 
white, must battle against one 
another and against the clock to 
get the secret plans and everything 
else needed for a speedy getaway. 
The main problem is that there are 
five items needed to escape and 
only one of each in the maze like 
complex. 

Each spy has a club which he uses 
to fight his opponent and also a 
selection of devious traps, ranging 
from the old time bomb to string 
triggered guns and buckets of 
water. The screen is split into two 
parts, each spy moves Indepe¬ 
ndently of the other on his half of 
the screen and they only meet 
when they enter the same room 
together. When they meet both 
spys appear in the top screen and 
must fight or leave the room. 
Death is not final it merely means 
you lose any items you were 
carrying and also some time. 
Joysticks are required to play and 
the game can be played against 
the computer or an opponent. 

The game is very well done and the 
graphics are very good, especially 
the animation. The game retains 
much of the humour of the 
cartoon, as traps go off and the 
spys giggle quietly to themselves. 
The game is very playable, it is 
simple enough to make it playable, 
yet complex enough to make it 
Interesting. 

Though hard to fault there is one 
thing I find frustrating. After 
playing forsome time you invariably 
become very good at it and you 
must improve the computer 
4opponent’s IQ to provide a 
challenge. When you do this 
however the computer becomes 
so good that it doesn’t make 
mistakes and the game isn’t as 
much fun. This is a minor fault and 
one which many people would not 
consider but it is true of most 
computer opponent games. 


Spy vs Spy is an excellent game, it 
is well presented and well written. 
Anybody who likes something 
slightly different will love this 
game. It is well worth the money 
and is one of the better programs 
on the market today. 

STELLAR - 7 


Title: STELLAR - 7 
Disk/Tape-64 
Author: Damon Slye 
Publisher US GOLD 
Price: R.R.P. $29.95 
Reviewed by: William Leader 

Three dimensional vector graphics 
at their best. STELLAR-7 is an 
excellent rendition of the arcade 
game BATTLEZONE. In a new 
anti-gravehical you must rid a 
series of planets of hostile forces. 
There are many different enemies, 
each with different firepower and 
armour. 

These are represented by hollow 
3-D images which move and rotate 
realistically. You have the latest 
weaponry and defence devices 
with whichyou mustfightyourway 
to the last planet and the evil mind 
behind it all, the nasty Gir Draxon. 
Joystick is optional but desirable. 

The graphics are excellent. They 
are smooth and well designed. The 
game-play is very good because it 
requires strategy, cunning and a 
good eye to be successful. The 
sound, what there is of it, is 
reasonable. 

The main fault of the game is 
speed. The graphics are smooth 
but not exceptionally fast. Every¬ 
thing seems much faster than 
yourself which is frustrating when 
you are pursuing an enemy. The 
level system is also annoying. In 
the first level you can only get to 
the fourth planet before you must 
start again on the next level. 

Despite these problems, the game 
is very good and good value. If you 
like strategy games with lots of 
action, then this is for you, but if 
you want blindingly fast action 
then maybe you had better have a 
good look first. 

F-15 STRIKE EAGLE 

Tape/Disk - C64 
Author: Grant Irani 
Publisher: US GOLD 
Price: R.R.P. $39.95 
Reviewed by: William Leader 

If you’re tired of trying to do tricky 
manouvers in yourflight simulator 
and failing then F-1 5 can solve all 
your problems. It is a simulator 
which simulates sorties over 
modern trouble spots, such as 
Libya and Vietnam. Your plane is 
equipped with the latest selection 
of missiles, bombs and defence 
CONTINUED OVERLEAF 
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devices. The main difference with 
this simulator is the power of the F- 
15, making rolls, loops and other 
fancy stunts not only easy but 
essential. This makes the game 
very playable. 

Theaim istobombaprimary target 
and as many secondary targets as 
possible before returning to base, 
avoiding SAM’S and other planes 
as you do. A joystick is desirable 
but not necessary. 

The manouverabllity of the plane 
makes the game extremely play¬ 
able. The diversity of the weapons 
and targets adds to the interest of 
the game. It is very well presented 
and well thought out. 

My main criticism of F-15 is the 
graphics. While the game is very 
fast, the graphics suffer slightly. 
The ground targets are nothing 
more than flat triangles. If they 
were made into solid objects the 
game would be more enjoyable. 
Also the game does not cater for 
taking off and landing. You begin 
in the air and merely have to fly 
over the base to return to it. If 
these minor faults were dealt with 
the game would be superb. 

As it is, the game is very good and 
good value if you have the money. 
It caters not only for simulation 
enthusiasts but also for the arcade 
buffs. F-15 should suit anybody 
who likes a good game. 

RAID OVER MOSCOW 

Title: RAID OVER MOSCOW 
Tape/Disk - C64 
Author: B. Carver 
Publisher: Access Software 
Price: R.R.P. $29.95 
Reviewed by: William Leader 

Russia has fired missiles at one of 
America’s cities! You are America’s 
only hope. You must manouver 
your planes out of the hanger(not 
too easy) and fly down to the 
Soviet missile base. You must 
penetrate its defences and blow 
up the silo. Do this to three 
launching sites and Moscow is in 
your sights. Fighting your way into 
the headquarters (with your baz¬ 
ooka) brings you face to face with 
the robot controller. Destroying 
this robot with your bouncing 
disks brings destruction to the 
Moscow defences and victory to 
America. A joystick is required to 
play. 

The game is a follow-up of 
beachhead, though the graphics 
are better. The different stages are 
full perspective, including the 
approach to the silos and Moscow 
which features diagonal scrolling. 
The game-play is superb, with so 
much variety you can’t possibly 
get bored with it. The graphics are 
good with shadows and 3D 
effects. 


It is hard to fault and the only 
problem I found was the abrupt 
end after you have completed the 
mission. The game could continue 
after this with a new scenario on 
the next level. 

This exceptional game is better 
than BEACHHEAD and more 
interesting. Anyone who likes 
arcade action will like RAID OVER 
MOSCOW because of the diversity 
of the stages. It Is well worth 
buying and a must for BEACH¬ 
HEAD fans. 

SUB - COOKING!! 

Title: Commodore 64 Subroutine 
Cookbook 

Author: David D. Busch 
Publisher: Prentice-Hall Australia 
Price: R.R.P. $12.95 
Reviewed by: Wayne B. Hodges 

This is for all those programmers 
out there, who, when in the midst 
of writing a masterpiece are left 
scratching their head. Now this 
process is not because of any 
ailment of the scalp region, but 
they are le^t wondering what it is 
they need to complete their task. 
This book can help in this area. It 
provides many helpful routines to 
add to your programme. 

Now if you have read this far, then 
you are interested, now with that in 
mind let me lead you through the 
benefits of this Computer-side 
companion. Each Chapter has a 
numberof featureswhich assist us 
in understanding exactly what a 
particular sub-routine does; the 
end result, it presents line by line 
details describing each function. 

After the initial formalities we are 
confronted with the first chapter, 
which explains the simple approach 
to merge these subbies into your 
programs. 

After one we meet Chapter two 
(amazing). This one examines 
Joysticks in some detail, this one 
provides a numberj of routines for 
your joysticks, where else would 
you get subbies like these. 
Chapter three is well timed, it 
shows you how to use the clock in 
your programs. About time, ehll 

Thenextchaptersoundsgoodtoo, 
it has selected a number of well 
thought out subbies that can do 
wonders to your masterpiece. 

Chapter five is a bit tricky, it is a 
mine of information, simply an 
amazing encyclopaedia of PEEKs 
and POKES for all functions. 
Getting down to basics is happen¬ 
ing in Chapter Six. and in Seven 
provides a number of very handy 
routines, such as, dealing cards, 
flipping coins and many others. 

Chapter Eight looks at data files, 
and Nine gives you the business 
by showing us a number of handy 


routines that would complement 
any programme for extra Interest. 

Basic Functions, Bits, Bytes and 
Communications are examined in 
the final chapters. 

SUMMARY 

Now simply this novel publication 
from ourfriends at Prentice-Hall is 
essential reference for any of you 
delving into the world of progra¬ 
mming. In my opinion this book 
would be a most invaluable guide 
and friend in need during those 
quiet and lonely hours at the 
Commodore 64 keyboard. 

THE WIZZ 


Title: The Wizz 

Disk/Tape for the Commodore 64 
Authors: P. Spiess & M. Haines 
Publishers: Edu-Kit Productions 

“Let the Wizz show you the FUN¬ 
WAY to help you with MATHS” 

This is a chess-like game for one or 
two players which teaches the 
addition and subtraction of nega¬ 
tive and positive numbers in an 
entertianing manner. 

Players can either use a Keyboard 
of Joystick. 

The aim of the game is to gain the 
highest score and at the same 
time keep their opponent’s score 
as low as possible. 

* A more detailed review of THE 
WIZZ will appear in a future issue. 


TABLES GRID 


Title: Tables Grid 
Publisher: Edu-Kit Productions 

Tables Grid is designed to help 
you learn your mulitplication 
tables off by heart In an entertaining 
manner. 

Tables Grid Is unique in that at the 
end of each game you can see at a 
glance your total tables knowledge 
in graphic form. 

Tables appear on the left hand 
side of the screen and as you type 
in the answers one of four types of 
grid patterns is created on the 
right hand side of the screen. 

At lower levels of difficulty, these 
include a hearts grid, electric grid 
or a maze grid. If you choose the 
most difficult level, then you are 
rewarded by any one of several 
fascinating picture jig saws being 
created on the right hand side of 
the screen as you get each table 
correct. 

If you get a table wrong, the 
correct answer will appear on the 
screen. For each game, you can 
choose a time limit from 3 to 39 
seconds in which to type in your 
answer. 

An added feature of Tables Grid is 
that you can get a “print out’’ of 
your results which shows a 
precise graphic record of your 
progress and performance. 

* A more detailed review of Tables 
Grid will appear in a future issue. 
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ADDRESS BOOK64 


A. Wiggins 

Address book will hold names and addresses, that can be 
sorted into postcode order, or alphabetical order. 

The sort can be made on the cassette player if needed. 

0 REM I CAN HOLD 100 ENTRIES TO CHANGE THIS ADJUST 
(Dl)IN LINE N0.22’BBXM 

1 REM A WIGGINS 1 CHESTER MELBOURNE VIC.’BEXH 

2 PRINT “[CLR,DOWN2]ENTER PRINTER DEVICE NUMBER.”: 
PRINT “ 2 TO 7 ONLY.”’CBHM 

4 PRINT “IF YOU DO NOT HAVE A PRINTER ENTER (2).’”BACM 
6 PRINT “IF YOU HAVE AN (ASR 33) ENTER (3).”: POKE 198 O’CGKO 
8 Z$=“”: GET Z$: IF Z$=“” THEN 8’FJRL 
10 Z=VAL (Z$): IF Z<2 OR Z>7 THEN 8’HLQE 
12 IF Z=3 THEN Z=128’EGYD 

14 IF A=>1 AND Z>3 AND Z<128 THEN CLOSE Z’JJSJ 
16 POKE 50000,Q: POKE 50001,Z: CLR ‘DQSI 
18 IF PEEK (50001)= 128 THEN OPEN 128,2 3 
CHR$( 163)+ CHR$( 160)TDGP 

20 Z=PEEK (50001): IF Z<128 AND Z>3 THEN OPEN Z Z’ISXH 
22 Dl=101: DIM A$(D1,11),B$(11),J$(D1,1 l):P$=“PHONE NO ”’DKYL 
24 AN$=“SORRY FOR THE DELAY IT’S MY DAY OFF”’BDWM 
26 A=1:Q=PEEK (50000): IF Q=0 THEN 500’GRGL 
28 IF Q=5 THEN 112’DFDI 

30 POKE 198,0: REM EMPTY KEYBOARD BUFFER’CAWG 
32 K$=“”: PRINT : PRINT “[UP,SPACE3]PRESS RETURN WHEN 
READY”’DEOL 

34 GET K$: IF K$<> CHR$(13) THEN 34’GLYJ 
36 PRINT “[UP,SPACE30,UP1”: RETURN ‘CBSL 
60 A$(A,0)=“STOP”: OPEN 1,1,1,N$’CQBH 
62 FOR X=1 TO A: FOR W=0 TO 11’GIEJ 
64 PRINT# 1,A$(X,W): NEXT W’CLCJ 
66 NEXT : CLOSE I’CCPJ 
68 GOTO 500’BDEL 
70 OPEN 1,1,0,N$’BINF 

72 IF A=>D1 THEN A$(D1,0)=“STOP”: CLOSE LGOTO 130’HRWO 
74 INPUT# 1,A$(A,0): IF A$(A,0)=“STOP” THEN CLOSE 1- 
GOTO 500’GWYQ 

76 FOR W=1 TO 11: INPUT#l.A$(A,W): PRINT A$(A W)- 
NEXT ‘GXTR 
78 A=A+1’CDPN 
80 GOTO 72’BCQE 
100 PRINT “[CLR,DOWN]’”BALV 

102 PRINT : PRINT “DO YOU WISH TO ADD NEW LIST TO 
CURRENT[SPACE2]LIST Y/N ?.”’CBFL 
104 POKE 198,0’BFXA 

106 Q$=“”: GET Q$: IF Q$<>“Y” AND Q$<>“N” THEN 106’JNGK 
108 IF Q$=“N” THEN Q=5: GOTO 14’FHII 
110 IF Q$=“Y” THEN 112’DFUY 
112 PRINT “[CLR,DOWN]’”BALY 

114 PRINT ENTER NAME OF LIST YOU WISH TO LOAD”*BAAK 
116 N$=“”: INPUT N$: GOTO 70’DIBF BAAK 

nothing TO^SaJ^Y^^ print “[RVS]S0RRY 

NOTHING TO oA h, YETfOFF] : GOSUB 30' GOTO snn’TT<rFT 

120 PRINT “ENTER NAME OF LIST YOU WISH "m Jfvp-n aph 
122 N$=“”: INPUT N$: GOTO 60’DIAC SAVE BAPH 

130 IF A=>D1 THEN A$(D1,0)=“STOP”: PRINT • PRINT 
“[RVSJADDRESS book FULL[0FF1”- ^sub 3m 
goto 500’JUCO ' 'J'JbUB 30: 

132 PRINT “(CLR,D0WN|”:AD$=“N0’S i at v, . 

^ FOR ADDRESS.no. 11 FOR PHONE Ifo-”?pwp 
134 PRINT : PRINT “TO END ENTER (STOPi fop ptpo^ x 

PRINT ADS: PRINT ‘EGGO ^ FIRST NAME”: 

136 PRINT “JUST PRESS RETURN IF ADDS COMPI ftp- 
PRINT‘CBXO •^'-UMPLETE : 

138 PRINT “THIS IS ADDRESS NO.”A’BBNL 

140 INPUT “(1) FIRST NAME”;A$(A,1): IF A$(A l)=“STOP” 

THEN 500’ETTJ j>iop 

142 IF A$(A,1)=“” then PRINT “(UP2j”: GOTO 140’FLBH 
44 INPUT “(2) LAST NAME”;A$(A.2): IF A$(A 2 )=“’™n 
PRINT “(UP2r: GOTO 144’GUUO ’ 

146 B=3: PRINT^DON^IADDRESS 3 TO 10”: PRINT “ADD POST 
CODE TO THE LAST ENTRY. DEDU 

147 PRINT B;:A$(A,B)=””* INPUT A$(A,B)’DSNL 

148 IF A$(A,B)=”” then GOSUB 5000’ELEL 

149 IF A$(A,B)=“” then FOR X-B TO 10:A$(A,X)=“N/A”: NEXT : 
GOTO 152’JYOT 

150 B=B-M' IF B<=10 THEN GOTO 147’HKTG 

151 IF A$(A,10)<>‘‘N/A" then GOSUB 5010TMUH 

152 INPUT “(11) PHONE NO. ’;A$(A,11)’BJLH 
154 A$(A,11)=P$+A$(^T1)’CSRI 


156 A=A+1’CDPI 

158 GOTO 130’BDDJ 

160 PRINT “[CLR,DOWN2]”’BADC 

162 IF A<=1 THEN PRINT : PRINT “SORRY NOTHING HERE TO 
SEE.”: GOSUB 30: GOTO 500’IKVR 

163 PRINT “[CLR,DOWN2]DO YOU WISH TO PRINT NAMES 
ONLY. Y/N”’BABP 

164 L$=“”: GET L$: IF L$<>“Y” AND L$<>“N” THEN 164’JNPO 

165 PRINT “[DOWN]DO YOU WISH TO PRINT ALL NAMES 

A TO Z.[SPACE16,RVS,SPACE3]Y/N[SPACE3,OFF]’”BAQU 

166 M$=“”: GET M$: IF M$<>“Y” AND M$<>“N” THEN 1667NVQ 

167 IF M$=“N” THEN PRINT “ENTER INDEX YOU WISH TO SEE 
(A TO Z) ?.’”ECLV 

168 IF M$=“N”THEN M1 $=“”: GETM1 $: IF M1 $<“A” ORM1 $>“Z” 
THEN 168’KTQU 

169 PRINT “[CLR,DOWN2]”’BADL 

170 X1=0: FOR X=1 TO A-1: IF MS=“N” AND 
LEFT$(A$(X,2).1)<>M1$ THEN 187’MDEQ 

171 IF L$<>“Y” THEN PRINT A$(X,0)’FJXI 

172 PRINT A$(X,I)“ ”A$(X.2):Xl = rCSDJ 
174 IF L$=“Y” THEN 182’DFWJ 

176 FOR W=3 TO 11: IF A$(X,W)<>“N/A” 

THEN PRINT A$(X,W)’ITPS 
178 NEXT ’BAEK 
180 PRINT ’BACD 

182 PRINT “PRESS RETURN TO CONTINUE’”BAFM 
184 GET Z$: IF Z$<> CHR$(13) THEN 184’GMIN 

186 PRINT “[UP,SPACE25,UP]”’BAUN 

187 NEXT : IF X1=0 THEN PRINT “SORRY NO “Ml$” ’S LISTED.”: 
PRINT ’GIJU 

188 PRINT : PRINT TAB(10)“[RVS1END OF LIST.[OFF]”: FOR X=1 
TO 500: NEXT : GOSUB 30: GOTO 500’JSCX 

190 SP=0: FOR X=1 TO A-1:W=LEN (A$(X,1)): IF W>SP THEN 
SP=W’LBRR 

191 NEXT :SP=SP+2: PRINT “[CLR,DOWN2]YOU CAN OMIT (2) 
NAMES FROM GOING(SPACE7]TO PRINT#.”’EHLW 

192 PRINT “DO YOU WISH TO OMIT ANY Y/N ?.”:B1$=“”: 
B2$=“”’DIER 

193 B$=“”: GET B$: IF B$<>“Y” AND B$<>“N” THEN 193’JNCQ 

194 IF B$=“N” THEN 200’DFRL 

195 PRINT “JUST HIT RETURN FOR FIRST NAME IF 
YOU[SPACE3]CHANGED YOU MIND.’”BATY 

196 B$=“”: INPUT “(1) FIRST NAME”;B$:B1$=B$: IF B$=“” 

THEN 200’GSMU 

197 B$=“”: INPUT “(1) LAST NAME”;B$:B1$=B1$+B$’EPUT 

198 B$=“”: INPUT “(2) FIRST NAME”;B$:B2$=B$: IF B$=“” 

THEN 200’GSOW 

199 B$=“”: INPUT “(2) LAST NAME”;B$:B2$=B2$+B$’EPXV 

200 IF Z=2 THEN PRINT : PRINT “[RVSJSORRY NO PRINTER 
ASKED FOR AT START OF[SPACE2]PROGRAM.[OFF]”: 

PRINT: GOSUB 30: GOTO 500’ILBQ 

201 IF A<=1 then PRINT “[CLR,DOWN21SORRY NOTHING HERE 
TO PRINT#.”: GOSUB 30: GOTO 500’HJFL 

202 PRINT “(CLR.DOWN21DO YOU WISH TO PRINT# NAMES 
ONLY. Y/N’”BALJ 

203 L$=“”: GET L$: IF L$<>“Y” AND L$<>“N THEN 203’JNJI 

204 IF L$=“Y” THEN 207’DFUD 

205 PRINT “[DOWNJDO YOU WISH TO PRINT# PHONE NO. 
Y/N”’BAWK 

206 0$=“”: GET 0$: IF Q$<>“Y” AND Q$<>“N” THEN 206-JNHL 

207 PRINT “IDOWNIDO YOU WISH TO PRINT ALL NAMES A TO 
Z.(SPACEI6,RVS,SPACE3]Y/N[SPACE3,OFF]”’BAQR 

208 M$=“”: GETMS: IF M$<>“Y” AND M$<>“N”THEN 208'JNSN 

209 IF M$=“N” THEN PRINT “ENTER INDEX YOU WISH TO SEE 
(A TO Z) ?.”’ECLS 

2I0IFM$=“N”THENM1$=“”:GETM1$: 1FM1$<“A” ORMl$>“Z” 
THEN 210’KTEI 

211 PRINT “(CLR.DOWN2JGONE TO PRINT#.”: GOSUB 30:C=A: 
X1=0: FOR A=1 TO C-1:B$=A$(A.1)+A$(A,2)’KHDP 

212 IF B$=B1$ OR B$=B2$ THEN 230' FN NE 

216 IF M$=“N” AND LEFT$(A$(A.2).1)<>M1$ THEN 230’HTJL 
218 IF L$=“Y” THEN PS=LEN (A$(A,1)): PRINT#Z,A$(A,1) 
SPC(SP-PS)A$(A.2):X1 = 1: GOSUB 234: GOTO 230’LWMW 
220 PRINT#Z,A$(A.1)“ ”A$(A,2):X1 = 1: GOSUB 234'DYLE 

222 FOR W=3 TO 10: IF A$(A.W)<>"N/A” THEN 
PRINT#Z.A$(A.W): GOSUB 234'JAVL 

223 NEXT 'BAEB 

224 IF Q$=“Y” THEN PRINT#Z.A$(A,11): GOSUB 234’FOGl 
226 PR1NT#Z: GOSUB 234: GOSUB 30’DIXH 

230 NEXT 'BAEY 

231 IF X1=0 THEN PRINT “SORRY NO "Ml$" ‘S LISTED " PRINT 
GOSUB 30’GKOL 
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232 GOTO 500’BDEC 

234 PRINT#Z, CHR$(0)+ CHR$(0)+ CHR$(0);’GMHJ 

236 SR=ST; IF ( PEEK (673) AND 1) THEN 236’FQHL 

238 RETURN ‘BAQH 

240 Q1=A-I: PRINT ‘DFKD 

242 01$=A$(Q1,2)+A$(Q1,1)’CTRH 

244 L=0; FOR 1=1 TO Q1-1:A$=A$(I,2)+A$(I,1)’HACN 

246 PRINT “[UP,SPACE37,UP1”’BARM 

248 PRINT Ql;: PRINT A$(I,1)“ ”A$(I,2)’CSCN 

250 IF AS<=01$ THEN 254’EI IF 

252 L=1:01$=A$: FOR B=0 TO 11:B$(B)=A$(Q1,B): 

A$(Q1,B)=A$(I,B):A$(I,B)=BS(B); NEXT ‘JHKU 
254 NEXT : IF LOO THEN 261’FGCJ 
256 FOR Z=1 TO A-2;Y=Z+1’GIYM 


257 CS=A$(Z,2)+A$(Z,1)’CQHM 

258 D$=A$(Y,2)+A$(Y,1)’CQGN 

259 IF C$>D$ THEN L=1’EGYN 

260 NEXT : IF L=0 THEN 6000’EHAF 

261 Q1=Q1-1: IF Q1>1 THEN 242’FMYI 

262 L=0: GOTO 6000’CHHG 

500 PRINT “[CLR,DOWN21’”BADA 
502 PRINT “WHAT WOULD YOU LIKE TO DO ?.”’BARI 
504 PRINT “MAKE OR ADD TO A LIST (1 ).”’BAVJ 
506 PRINT “SEE LIST[SPACE14](2).”’BACK 
508 PRINT “SEND LIST TO PRINTER# (3).”’BAXO 
510 PRINT “SAVE LIST TO TAPE#[SPACE4](4).”’BADG 
512 PRINT “GET LIST FROM TAPE#[SPACE3](5).”’BAOI 
514 PRINT “MAKE CHANGES[SPACE10](6).’”BALJ 
516 PRINT “SORT[SPACE18](7).”’BAWK 

519 PRINT “FIND ADDRESS BY NAME[SPACE21(8).”’BAGP 

520 PRINT “END[SPACE19](9).”’BARF 
530 POKE 198,0’BFXD 

540 Q$=“”: get Q$: IF Q$=“” THEN 540’FLMI 

541 Q=VAL (Q$)’CFQG 

542 IF Q<1 OR Q>9 THEN 540’FHJJ 

544 ON Q GOTO 130,160.190.118,100,600,700,1000,2000’CNGP 
600IF A<=1 THEN PRINT “[CLR,DOWN2]SORRY NOTHING HERE 

TO CHANGE.”: GOSUB 30: GOTO 500’HJUO 

601 PRINT “[CLR,DOWN2]ENTERNAME OF CHANGE.”’BAAH 

602 PRINT “ENTER (STOP) FOR FIRST NAME TO(SPACE15] 
RETURN TO MENU.”’BAWQ 

620 PRINT “ENTER AT LEAST FIRST (4) CHARACTERS FOR FIRST 
AND LAST NAME.”: PRINT ‘CBCT 


621 Cl$=“”: INPUT “FIRST NAME”;C1$: IF Cl$=“STOP” 

THEN 500’FPQN 

622 IF CI$=“” THEN PRINT “[UP21”: GOTO 621’FHXJ 
624 PRINT :W=LEN (C1$)’DHKJ 

630 C2$=“”: INPUT “LAST NAME”;C2$: IF C2$=“” THEN PRINT 
“|UP2j”: GOTO630’HQRO 
632 V=LEN (C2$)’CGFH 
640 CC=0: FOR X=1 TO A’EHQI 

650 A$=A$(X.I):B$=A$(X,2): IF C1$=MID$(A$,1,W) AND 
C2$=MID$(B$,1.V) THEN CC=X:X=A’LXVW 
660 NEXT ‘BAEG 

662 IF CC=0 THEN PRINT : PRINT “SORRY THAT NAME NOT 


’BABQ 


LISTED.”: GOSUB 30: GOTO 600’HLTV 

663 PRINT “[CLR,DOWNr’: PRINT A$(CC,0)’CJSM 

664 PRINT A$(CC,1)“ ”A$(CC,2)’BQKN 

665 FOR W=3 TOIL PRINT A$(CC,W): NEXT ‘ FORR 

666 PRINT “WHAT DO YOU WISH TO CHANGE ?.”’BALU 

667 PRINT : PRINT “FIRST NAME[SPACE51(1).”’CBUS 

668 PRINT “LAST NAME|SPACE6](2).”’BANS 

669 PRINT “PHONE NO.(SPACE61(3).”’BAXT 
print “ADDRESS[SPACE81(4).’”BARL 

671 print “|RVS|REMOVE PERSON FROM FILE|OFFl(5) 

672 PRINT “TO RETURN TO|SPACE7r”BAHN 

673 PRINT “MENUISPACEI1 |(6).”’BAJN 
POKE 198,0’BFXM 

0*-“”: GET Q$: IF Q$=“” THEN 675’FLVR 
67R IP Q<I OR Q>6 THEN 675’HNJU 

68n Q goto 680 , 681 ,682.684,6 100,500’DBTV 

681 mdmI P'RST NAME”;A$(CC,1): GOTO 663’CNYP 

689 past NAME”;A$(CC,2): GOTO 663’CNWP 

683 ALr'r-’ IPIPOT “(11) phone N0.”;A$: IF A$=“” THEN 663’FMTS 
III ni^-9.’'GOTO 663’DRVQ 

FliRxiic^y^'^O WIPE OUT LINE BELOW AND ANY 
685 dV'S ENTER N/A”’BDJC 

BELOW INCORRECT ENTER CORRECT 
688 PRimt'P PIPIP OK PRESS RETURN.lDOWNl”’BDKH 
“ “'AtTr-J —print A$(CC,0): PRINT A$(CC,1) 
Aa>(CC,2): PRINT : PRINT DI$: PRINT D2$’GKOC 


692 FOR W=3 TO 10: PRINT A$(CC,W): PRINT : PRINT W;: 

INPUT A$(CC,W)’HBKV 

693 IF A$(CC,W)=“N/A” THEN GOSUB 5020’EMIR 

694 IF A$(CC,W)=“N/A” THEN FOR X=W TO 10: A$(CC,X)=“N/A”: 
NEXT :W=10’JBYB 

695 PRINT “[CLR,DOWN2]”: PRINT A$(CC,0): PRINT AS(CC,1) 

“ ”A$(CC,2)’DBXV 

696 FOR X=3 TO W: PRINT A$(CC,X): NEXT : PRINT Dl$: 

PRINT D2$’HVYX 

697 NEXT ‘BAEQ 

698 IF A$(CC,10)<>“N/A” THEN GOSUB 5030’FNQX 

699 GOTO 663’BDOT 

700 IF A<=1 THEN PRINT “SORRY NOTHING HERE TO SORT.”: 
GOSUB 30: GOTO 500’HJXO 

701 IF A=2 THEN PRINT “[CLR,DOWN21SORRY YOU ONLY HAVE 
ONE ITEM.”: GOSUB 30: GOTO 500’GJHQ 

702 PRINT “[CLR,DOWN2]IF YOU HAVE A LOT OF ENTRIES IT 
WOULD[SPACE3]SORT BETTER USING YOUR ”;’BBBV 

703 PRINT “CASSETTE PLAYERISPACE2]AS AN AID.YOU WILL 
NEED A BLANK TAPE.”’BAIS 

704 PRINT “[DOWN2]DO YOU WISH TO DO A CASSETTE SORT 
Y/N ?”’BASP 

705 S$=“”: GET S$: IF S$<>“Y” AND S$<>“N” THEN 705’JNTP 

706 PRINT “[CLR,DOWN2]WHAT DO YOU WISH TO SORT ?.”’BAWP 

707 POKE 198,0’BFXJ 

708 PRINT “POST CODE[SPACE6](l).’”BAYN 

709 PRINT “FULL SORT[SPACE6](2).”’BABO 

710 PRINT “RETURN TO MENU (3).”’BAOH 

711 POKE 198,0’BFXE 

712 Q$=“”: GET Q$: IF Q$=“” THEN 712’FLNJ 

713 Q=VAL (Q$): IF Q<1 OR Q>3 THEN 712’HNXM 

714 IF S$=“Y” THEN Q=Q+3’FFEK 

715 ON Q GOTO 716,240,500,8000,9000,500’CBDN 

716 Q1=A-1: PRINT ‘DFKL 

718 01 $=A$( Q1,0) +A$(Q 1,2)+A$( Q1,1 )’DCER 

720 L=0: FOR 1=1 TO Q1-1:A$=A$(I,0)+A$(I,2)+A$(I,1)THHO 

722 PRINT “[UP,SPACE37,UP]”’BARL 

724 PRINT Ql;: PRINT A$(I,1)“ ”A$(I,2)’CSCM 

726 IF A$<=01$ THEN 730’EIHN 


728 L=1:01$=A$: FOR B=0 TO 11:B$(B)=A$(Q1,B): 

A$(Q1,B)=A$(I,B);AS(I,B)=B$(B): NEXT ‘JHKD 
730 NEXT : IF LOO THEN 739’FGMI 
732 FOR Z=1 TO A-2:Y=Z+I’GIYL 
734 C$=A$(Z,0)+A$(Z,2)+A$(Z, 1 )’DXEO 

736 D$=A$(Y,0)+A$(Y,2)+A$(Y,1)’DXCQ 

737 IF C$>D$ THEN L=rEGYO 

738 NEXT : IF L=0 THEN 6000’EHAP 

739 Q1=Q1-1: IF Q1>1 THEN 718’FMCT 

740 L=0: GOTO 6000’CHHH 

1000 IF A<=1 THEN PRINT “[CLR,DOWN2]SORRY NOTHING 
HERE YET.”: GOSUB 30: GOTO 500’HJVG 

1001 PRINT “[CLR,DOWN2]TO FIND ADDRESS BY NAME.’”BAAB 

1002 PRINT “ENTER (STOP) FOR FIRST NAME TO RETURN 
[SPACE31TO MENU.”’BATI 

1003 PRINT “ENTER AT LEAST FIRST (4) CHARACTERS FOR 
FIRST AND LAST NAME.”: PRINT ‘CBCN 

1004 Cl$=“”: INPUT “FIRST NAME”;C1$: IF Cl$=“STOP” 

THEN 500’FPQH 

1006 IF Cl$=“” THEN PRINT “[UP2]”: GOTO 1004’FIRE 
1008 PRINT :W=LEN (C1$)’DHKE 

1010 C2S=“”: INPUT “LAST NAME”;C2$: IF C2$=“” THEN PRINT 
“[UP2]”: GOTOIOIO’HRIF 

1011 V=LEN (C2$)’CGFW 

1012 PRINT :CC=0: FOR X=I TO A’FIWB 

1014 A$=A$(X,1):B$=A$(X,2): IF C1$=MID$(A$,1,W) AND 
C2$=MID$(B$,1,V) THEN CC=X:X=A’LXVP 
1016 NEXT‘BAEA 

1018 IF CC=0 THEN PRINT : PRINT “SORRY THAT 
NAME NOT LISTED.”: GOSUB 30: GOTO 1000 
1020 PRINT A$(CC,1)“ ”A$(CC,2)’BQKX 
1022 FOR W=3 TO 11: IF A$(CC,W)<>“N/A” THEN 
PRINT A$(CC,W)’IVGH 

122^ St “SS YW wfsH TO LIST THIS ADDRESS”: 

PRINT “ON THE PRINTER# Y/N ?.’”CBYQ 

!2Sq$=‘”’:GEt’S^FQ$<>‘‘Y”ANDQ$<>“N”THEN1030’IOBF 

loll St^iSSoWnTdO Y?U WISH TO PRINT# PHONE NO. 

Y/N”’BAGK 
1036 POKE 198,0’BFXD 
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1038 Q$=“”: GET Q$: IF Q$<>“Y” AND Q$<>“N” THEN 1038’JOJN 
1040 PRINT “(DOWN]GONE TO PRINT#.”: GOSUB 30’CDCC 
1042 PRINT#Z,A$(CC,1)“ ”A$(CC,2): GOSUB 1052’CXAF 
1044 FOR X=3 TO 10: IF A$(CC,X)<>“N/A” THEN 
PRINT#Z,A$(CC,X): GOSUB 1052’JDDN 
1046 NEXT ‘BAED 

1048 IF Q$=“Y” THEN PRINT#Z,A$(CC,11): GOSUB 1052’FSQM 
1050 GOTO lOOO’BEXY 

1052 PRINT#Z, CHR$(0)+ CHR$(0)+ CHR$(0);’GMHG 
1054 SR=ST: IF ( PEEK (673) AND 1) THEN 1054’FRYJ 
1056 RETURN ‘BAQE 
2000 END ‘BACT 

5000 R=4: IF RIGHT$(A$(A,B-1),1)=CHR$(46) THEN R=5TVAG 

5001 A$( A,0)=RIGHT$( A$( A,B-1 ),R)’DTVD 

5002 A$=LEFT$(A$(A,0),1): IF A$< CHR$(49) OR A$> CHR$(57) 
THEN A$(A,0)=“r”KIFM 

5004 RETURN ‘BAQB 

5010 R=4: IF RIGHTS(A$(A,10),1)=CHR$(46) THEN R=5’HVMH 

5011 A$(A.0)=RIGHT$(A$(A,10),R)’CTHE 

5012 A$=LEFT$(A$(A,0),1): IF A$< CHR$(49) OR A$> CHR$(57) 
THEN A$(A,0)=“1’”KIFN 

5014 RETURN ‘BAQC 

5020 R=4: IF RIGHT$(A$(CC,W-I),1)=CHR$(46) THEN R=5TWJJ 

5021 A$(CC,0)=RIGHT$(A$(CC,W-1),R)>DVYG 

5022 A$=LEFT$(A$(CC,0),1): IF A$< CHR$(49) OR A$> CHR$(57) 

THEN A$(CC,0)=“1”’KKSO ') 

5024 RETURN ‘BAQD 

5030 R=4: IF RIGHT$(A$(CC,10),1)=CHR$(46) THEN R=5’HWFJ 

5031 A$(CC,0)=RIGHT$(A$(CC,10),R)’CVUG 

5032 CHR$(49) OR A$> CHR$(57) 

5034 RETURN ‘BAQE 


6000 REM ** SOUND SUBROUTINE **’BTHD 

6020 S=54272’BGJC 

6030 POKE S+24,15’C GO D 

6040 POKE S+5,50’CFOE 

6045 FOR X=1 TO 50’DEVJ 

6050 POKE S+1, RND (X)4:32+50’FKQI 

6060 POKE S+4,17’CFQG 

6070 FOR I=I TO 10: NEXT ‘EFJI 

6080 POKE S+4,16’CFPI 

6090 NEXT X’BBRH 

6091 FOR X=1 TO 24: POKE 54272+X,0- NEXT ‘GOFO 

6092 IF L=1 THEN RETURN ‘ECNL 
6094 GOTO 500’BDEM 

6100 PRINT : PRINT “THIS MAY TAKE A LITTLE TIME ”’CBKH 

6101 L=l: FOR Z=CC TO A-1:Y=Z+1’HMHH 


6102 FOR B=0 TO 11:A$(Z,B)=A$(Y,B); NEXT : NEXT :A=A-1: 

GOSUB 6000:L=0: IF A>1 THEN 600’NOJR 
6104 GOTO 500’BDEE 


8000 T$=“9000”: PRINT “[CLR,DOWN2]’”CDCD 

8001 PRINT “PUT BLANK TAPE INTO CASSETTE PLAYER.”: 
GOSUB 30: PRINT “[CLR,DOWN2]”’DENO 

8002 ED=0: OPEN 1,1,1,“SORTED”: FORX=l TO A-l:O$=A$(X,0): 
IF Q$=>T$ THEN 8004’LJJS 

8003 T$=Q$’BEIE 

8004 NEXT :T=VAL (T$): PRINT “[CLR,DOWN2 SPACE5,RVS] 
SORTING.[OFF]”:AA=0’FLYO 

8005 FOR X=1 TO AA: FOR B=0 TO 11*J$(X B)=“”' NEXT * 

NEXT‘ITAO • V , / 


8006 AA=1:L=0:T$=STR$(T):W=LEN (T$V 
T$=RIGHT$(T$,W-l)’JDOS 

8007 IF T=9001 THEN T=0: PRINT#1 “STOP”- CT OSF 1-A=1- 

GOTO6000TUMR ’ iwr . cLUbt, i.A i. 

8008 PRINT “ ”T$: FOR X=1 TO A-1:W=LEN (A%(X O^V 

IF RIGHT$(A$(X,0),1)=CHR$(46) THEN W=W-l’OMBA 

8009 Q$=LEFT$(A$(X,0),W)’CNTN 

8010 IF Q$<>T$ THEN 8012’EICF 

8011 FORB=OTO 11-J$(AA,B)=A$(X,B):A$(X,B)=“”: NEXT:0$=“”: 
A A=A A+1: L= 1 ’KQWR 

8012 NEXT :T=T+1: IF L=0 THEN PRINT “[UP2]”: GOTO 8006TMQL 
8014 Q1 = AA: IF AA-2 THEN PRINT “[UP,SPACE4,UP]”: PRINT 01;: 

PRINT J$(1,0)“ ”J$(1,1)“ ”J$(1,2): GOTO 8050TOWT 
8018 LL=0: FORI=i TO Ql-l’FJXO 
8020 PRINT “[UP,SPACE37,UP]”’BARI 
8022 PRINT Ql;: PRINT J$(I,0)“ ”J$(I,1)“ ”J$(I,2)’CABK 
8024 IF J$(I,0)+J$(I,2)+J$(I,1)<=J$(Q1,0)+J$(Q1,2)+J$(Q1,1) 

THEN 8030TYTV 

8026 LL=1: FOR B=0 TO 11:B$(B)=J$(Q1,B):J$(Q1,B)=J$(I,B): 

J$(I,B)=B$(B): NEXTTCCY 
8030 NEXT : IF LLOO THEN 8036TIJH 
8032 FOR X=1 TO AA-1:Y=X+1: IF J$(X,0)-f J$(X,2)-I-J$(X,1)> 
J$(Y,0)+J$(Y,2)+J$(Y,1) THEN LL=rOFXB 


8034 NEXT : IF LL=0 THEN 8050’EICL 
8036 Q1=Q1-1: IF Ql>2 THEN 8018’ FN BP 

8050 ED=ED+AA-rDHDI 

8051 FOR X=1 TO AA: FOR B=0 TO 11’GJXL 

8054 PRINT# 1,J$(X,B): NEXT : NEXT ‘DLQM 

8055 IF ED=>A-1 THEN T=9000’GJKQ 

8056 GOTO 8005’BEKM 

9000 T=90: PRINT “[CLR,DO\VN2]”’CEWD 

9001 PRINT “PUT BLANK TAPE INTO CASSETTE PLAYER.”: 
GOSUB 30: PRINT “[CLR,DOWN2]”’DENP 

9002 OPEN 1,1,1,“SORTED”: FOR X=1 TO A-1:Q$=A$(X,2): 

IF LEFT$(Q$,1)=> CHR$(T) THEN 9004’MKEU 

9003 T=ASC (Q$)’CFUG 

9004 NEXT :T=T-1: PRINT “[CLR,DOWN2,SPACE5,RVS]SORTING. 
[OFF]”:AA=0’FJKO 

9005 FOR X=1 TO AA: FOR B=0 TO 11:J$(X,B)=“”: NEXT : 

NEXT ‘JTAP 

9006 AA=1:L=0:T=T+1: IF T=58 THEN T=65’IROQ 

9007 B$=CHR$(T): IFT=91 THENT=0: PRINT# 1,“STOP”: CLOSE 1: 
A=l: GOTO 6000’KYBV 

9008 PRINT “ ”B$’BCFK 

9009 FOR X=1 TO A-l:Q$=A$(X,2)’FOXQ 

9010 IF LEFT$(Q$,1)<>B$ THEN 9012’FMDH 

9011 FOR B=0 TO 11: J$( AA,B)=A$(X,B): A$(X,B)=“”: NEXT :Q$=“”: 
AA=AA+l:L=rKQWS 

9012 NEXT : IF L=0 THEN PRINT “[UP2]”: GOTO 9006’GIGK 

9014 Q1 = AA: IF AA=2 THEN PRINT “[UP,SPACE4,UP]”: PRINT Q1 
PRINT J$(l,l)“ ”J$(1,2): GOTO 9050’IHPT 
9018 LL=0: FOR 1=1 TO Ql-l’FJXP 
9020 PRINT “[UP,SPACE37,UP]’”BARJ 
9022 PRINT Ql;: PRINT J$(I,1)“ ”J$(I,2)’CSUK 
9024 IF J$(I,2)+J$(I,1)<=J$(Q1,2)+J$(Q1,1) THEN 9030’GJPR 
9026 LL=1: FOR B=0 TO 11:B$(B)=J$(Q1,B):J$(Q1,B)=J$(I,B): 

J$(I,B)=B$(B): NEXT’ICCA 
9030 NEXT : IF LLOO THEN 9036’FIKI 

9032 FORX=l TO AA-1:Y=X+1: IF J$(X,2)+J$(X,1)>J$(Y,2)+J$(Y,1) 
THEN LL=rMQUW 
9034 NEXT : IF LL=0 THEN 9050’EIDM 
9036 Q1=Q1-1: IF Ql>2 THEN 9018’ FN CQ 
9050 FOR X=1 TO AA: FOR B=0 TO 11’GJXL 
9054 PRINT# 1,J$(X,B): NEXT : NEXT : GOTO 9005’EQFP □ 


Cockroach 
Tiirbo-Rom 

PRICE: $42 (inc. postage etc.) 
Speed up program loading, and saving with TURBO-ROM, available for C64, SX, 128,1541, 
157Q/1. Works with 1 or 2 Drives. Vic switch compatible. Does not tie up cartridge socket. 
Works with printer connected. (Some fast loaders don't) 

Cockroach has replaced the cassette and RS232 in the normal ROM with more useful code 
for the 1541 disk user. (A switch is provided to return to normal ROM should you need to 
load from cassette or use a modem.) 

1. FAST LOAD-The COCKROACH TURBO-ROM will load virtually ALL commer¬ 
cial software with speed improvements up to 600%. 

(NOTE; Improvement varies from program to program.) 

2. DOS WEDGE-® to read error channel, @$ to list directory to screen (without 
disturbing memory). @P turn printer on etc. 

3. FAST FORMAT built-in-The command ®F:NAME.ID will format (with verifi¬ 
cation) a disk in 30 secs (about 5 times normal speed). 

4. SCREEN DUMP-The Commodore/F7 combination gives a screen dump to the 
printer even whilst program is running. 

5. FAST SAVE—Save three times faster (verified). 

6. Extra commands in immediate mode:- 
ZAP—Cold start 

OLD—Recover Basic program after NEW or cold start. 

MON—Jump to monitor if in memory. (MONAD but can be customised). 
SCREEN COLOURS & MESSAGE may also be customised if required ($5 extra) 
COCKROACH TURBO-ROM is a single chip (with an attached switch) which plugs into the 
socket presently occupied by your KERNAL ROM. 

TURBO FAN PRICE; $45 (includes postage etc.) 

This is a cooling fan which simply clips to the top of your disk drive and extracts the hot 
air—preventing premature failure due to overheating. A must for schools, etc. 

ALSO AVAILABLE; 

TURBO -64—FAST LOAD SYSTEM $47 (including postage) 

TURBO-ROACH—Three minute backup for unprotected disks $37 (inc. postage etc.) 
TURBO-64 LABELS $2.50 per pack (20) including postage. 

TRACK GUAGE $18 (includes postage etc.) 

WRITE LIGHT KIT $17 (includes postage etc.) 

TURBO-64 UTILITIES DISK $22 (includes postageetc.) 

COCKROACH SOFTWARE, RO. BOX 1154, SOUTHPORT, 4215 
Telephone: (075) 32 5133 A/H (075) 32 4028 
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SWAP ROUTINE 

Tony Atkinson 


Here is a tiny but powerful machine 
language routine which Implements a SWAP 
function found in some larger Basics. 

The routine has not been Implemented as a 
wedge. All wedges involve some slowing of 
the machine and was not considered 
worthwhile in this case. If you put S equal to 
the starting address of the routine SYSS 
calls the function and there is no saving by 
using SWAP. 

The syntax is as follows: 

SYSS,A$,B$ SYSS,A%,B% SYSS,A,B 
SYSS,X(2,3),X(4,5) 

The commas are critical. 


Probably SWAP finds most common use in 
various sort routines but has many uses, for 
example in maths and statistics. An 
interesting case. If you store screens in two 
dimensional arrays. Swap can be very 
effective. As listed below, the routine will 
Swap all variables; floating point. Integer 
and string. It will also handle elements of 
floating point arrays of any dimension. With a 
very slight modification, indeed one value. It 
will also swap string and integer arrays of 
any dimension. 

Before discussing the working of the routine 
let’s have a look at how variables and arrays 
are held in memory. 

All variables are held In seven consecutive 
bytes in the section of RAM reserved for 
variables immediately above the Basic 
program. 

In each case the first 2 bytes hold the 
variable’s name. You only need to use one 
character for a name but provision is made 
for two. 


The remaining 5 bytes hold the details of the 
particular variable. 


Pleating point variables use 5 bytes to hold 
floating point values. The last 5 bytes are 
taken up with this 5 byte configuration of the 
floating point value; so all 7 bytes are used 
for F.P. variables. 


Integer values are held in two bytes in high 
byte/low byte order. Thus only 4 bytes are 
used by integer variables; two for name, two 
for value. But they are still stored in 7 bytes; 
the last three always set to 0. 

Strings are quite different. The actual 
characters which make up the string may be 
held in a number of other places in memory. 

»for example, they are contained in a 
program line or data line, they remain there 
unless changed. Any new or changed 
strings, for example if entered as a direct 
mmand or through the operation of your 
program, are stored in the section for strings 
reserved at the top of RAM. 


r^^se of string variables, after tl 
t)y‘es, byte 3 holds tl 
Bvtec^/i ^r:tual characters in the strir 
orHor u ^ usual low byte/high by 
cha?L^°"' ^'^dress where the aett 

worHcfh?? string are held. In oth 

knnu/c locking at these bytes the machii 
how many characters it needs to pi 


up and the address of the first of these 
characters. All 7 bytes are still used for each 
string variable with the last 2 always set to 0. 

If we can find the address of the third byte of 
any named variable we can swap the last 5 
bytes with the last 5 bytes of another 
variable of the SAME type. 

This can be done quickly and easily using a 
Basic routine from the ROM. 


In the case of strings no new or changed 
strings are created by Swap. These can 
clutter up the string section of RAM. There 
will be no call for garbage collection. This 
can be very important in a large program or 
sort. 


In the routine as listed below all 5 bytes after 
the two name bytes are swapped to make it 
generally applicable to all three types of 
variables. Although you can see we only 
need change 2 bytes for integer variables 
and 3 for strings. 

Now let’s look at arrays. All arrays are held in 
that section of memory set aside for arrays 
between variables and strings areas. 

Each array starts off with a header. The first 
two bytes hold the array name, then such 
things as number of bytes, number of 
dimensions, etc., in other words a discription 
of the total array. Our interest is in the details 
of a particular element in the array. In the 
case of numeric arrays the values of each 
element are In a row of bytes immediately 
after the header information. In a similar way 
to variables, floating point values need 5 
bytes while 2 bytes are used for Integer 
values. 


In the case of string arrays the actual 
characters of the string are held elsewhere 
in memory just as they are with string 
variables. So after the header we have a 
collection of 3 bytes for each element of the 
array The first holds the number of 
characters while the next two hold the 
address where those characters start In 
memory. Again just like string variables. 


A little problem arises in that there are no 
blank bytes in arrays as in variable headers. 
For floating point arrays, we need to swap 5 
bytes for an element and the program below 
therefore works with these as well as with 
the three types of variables. 


However, for Integer array elements we only 
need to swap 2 bytes and for string arrays 3 
bytes need to be swapped. If we move more 
bytes, unlike variables, we will be moving 
parts of another element; can be a bit messy! 


5 simply needs a change in the counter 
the loop; the value in the Y Register. One 
nqe, maybe a Poke, will provide this 
/erful little function which can then work 
1 any sort of variable or array. It would be 
sible to have the program itself check 
type of variable or array and alter the 
nter accordingly. I do not consider the 
ed complexity and length are worthwhile 
m used as a Basic function in your own 
ic program. Further-more as it stands, 
routine fits comfortably into a first line 
y/l. Personally I believe this is the best 


place to hold these routines if they fit and do 
not introduce any bugs with control 
characters. 

BASIC LOADER 


Listing 1 Is a Basic loader program which 
puts the Swap routine In the cassette buffer. 
The routine can be relocated anywhere you 
wish without any change. 

LISTING 1 

10 N=828’BELX 

20 READ D:IF D=-1THEN END’GELC 
30 POKE N,D:N=N-hl ; GOTO 20’EKUD 
40 DATA 32,253,174,32,139,176,132,252,133, 
251,32,253,174,32’BBMK 
50 DATA 139,176,132,254,133,253,160,4,177, 
251,72,177,253,145’BCDL 
60 DATA 251,104,145,253,136,16,243,96,-1 
’BHUI 


ML ROUTINE 


Listing 2 is a commented listing of the 
machine language routine itself. This 
program depends on the Basic ROM routine 
located at address 45195. The machine 
uses this routine to find these parameters 
and it returns In the accumulator and Y 
register, In low byte/high byte fashion, the 
address discussed above for each variable 
or array element. 

This Is done twice, after checking commas, 
for each variable or element and the 
addresses stored In 251/254. These are the 
free bytes on Zero Page which allow us to 
use the very valuable post-index. Indirect 
address mode for the swapping of the 
information in the little loop. 

You know when swapping two variables it is 
necessary to do something like C=A, A=B, 
B=C. In other words, we use a temporary variable 
You know when swapping two variables it is 
necessary to do something like C=A, A=B, B=C. 
In other words, we use a temporary variable 
like C or a temporary address to store A 
while you change A to B, then B to the first A 
value. In this program the stack is used for 
the temporary storage. 

Summarising the change in the loop counter 
value, le. Y in address 849 in the above 
program: 

Y=4 swaps - floating point, integer and 
string variables and floating point array 
elements. 

Y=2 swaps - integer and string variables 
and string arrays. This is a very useful 
combinations. 

Y=1 swaps - Integer array elements. 

(c) Tony Atkinson,1985 


FOR SWAP LISTING SEE 
PAGE 33 
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SUBSCRIBER 

SURVEY 

Since KIM BOOKS took over the publication 
of the COMMODORE MAGAZINE in June 
1984, the magazine has grown and gained 
respect as a quality publication. To make 
sure that we continue to develop in 
accordance to your wishes we have decided 
to carry out a survey of subscribers. 

The survey will span the next three issues. Those 
subscribers (with Australian Postal Address) who send in 
completed survey forms which include their name and 
postcode will be eligible for to enter our competition the 
prize for which will be a Commodore 128 computer and a 
diskdrive. 

A maximum of three entries per subscriber is permitted. 
One for each individual survey form completed. (Entrants 
must be current subscribers). 


1. What computer equipment do you own/use 
(including non/Commodore) 

Computer (model):. 

Disk Drive (model):. 

Cassette:Monitor (type/model):. 

Printer (model/type):. 

Plotter (model/type):. 

Interface (model/type):. 

Modem (model/baud):. 

Wordprocessor Software:. 

Others items (e.g. Simon’s BASIC, Digitizer, Joystick etc.); 



- YOUR CHANCE 
TO WIN A 
COMMODORE 128 
and 

DISKDRIVE 

OPEN TO ALL CURRENT 
AND NEW SUBSCRIBERS. 


3. What Computer Languages do you use? 
(Please grade 1 - 5 as above) 

1 2 3 4 5 


BASIC. 

BASIC advanced. 

LOGO. 

FORTH . 

COMAL. 

PASCAL. 

COBOL. 

FORTRAN . 

PILOT. 

MACRO ASSEMBLER 


Other (specify) 


2. What are your main interests in computing? 
(Please grade from 1 major to 5 passing) 

1 2 3 4 5 

Education. 

Arcade style games. 

Adventure games. 

Graphics. 

Sound . 

Spreadsheets. 

Wordprocessing. 

Business. 

Other (specify). 


4. Are you a member of a Commodore or 
Microcomputer User Group. (Please Specify.) 


5. Are you a subscriber or member of any 
telephone database? (Please Specify). 

VIATEL:. 

TELEDATA:. 

MINERVA:. 

SOURCE:. 

BBS (specify):. 


CONTINUED OVERLEAF 
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CONTINUED FROM PREVIOUS PAGE 


6. Have you any particular use or application for 12. Do you hire Videos and how frequently? 

your computer that you feel we’d readers would (e.g. once a week, once a fortnight etc.): 

be interested in (detail)? . 


7. What is your occupation? 


8. What age group are you In? 

Male □, Female □ please tick 


Under 9 years □ 

10-15 years □ 

16-21 years □ 

21-35 years □ 

36-45 years □ 


Above (care to tell us?). 

9. What other interests are you involved in? 

(i.e. Sailing, theatre, eiectronics travel, war games etc.) 


10. How long have you been a reader of The 
Commodore Magazine and howdid you first come 
in contact with it? 


11. What other publications do you read? 

(Computer and non-computer orientated): 

Regularly Occasionaly Rarely 

Australian Personal Computer:. 

Your Computer:. 

Australian Commodore Review:. 

PC Games:. 

AHOY:. 

Zapp:. 

Power Play:. 

Compute:. 

The Transactor:. 

TV News:. 

TIME:. 

New Idea:. 

Others (specify). 


Next issue we will take a look at your likes, 
dislikes and suggestions for the magazine. 

Subscriber code:. 

or 

Name:. 

Postcode:. 

(Make sure the postcode and name is the same as that on your 
subscriber address) 



In a maximum of 200 words tell the Editor what 
program you would like to write for any 
Commodore Home Computer. Give sufficient 
information to determine what is entered into 
the computer, where it is obtained, what is the 
computer output and the benefits the output 
will achieve. The program can be in any area: 
entertainment, educational, business, utility, 
social etc. 

This competition is for both beginners and 
experienced computerists. You do not have to 
write the program or actually know how to. 
Each entry will be judged on its own merits 
based on general feasability, originality and 
presentation. 

The Editors’ decision is final and no 
correspondence will be entered into. 

CLOSING DATE: 

Final Closing date for the competition will be announced 
in Issue 35 of The Commodore Magazine and the 
winner will be announced in Issue 36. 

NOTE: To be eligible for the competition this survey 
sheet, accompanied by your entry, must reach us by 
February 14th, 1986. All survey questions are optional. 

Send to: 

READER SURVEY 
KIM BOOKS 
82 Alexander Street 
Crows Nest 
NSW 2065 


Information obtained from this survey will be utilized for statistical purposes 
only and will not be linked or retained in association with personal subscriber 
files. 


32 


Volume 5. Number 5 Commodore Magazine 










































LOnO GENERATOR 

by Bill Shields 


Written for the Commodore 64 this program can be easily 
adapted to other machines. Amend line 1000 which sets 
colour and clears the screen. 

The LOTTO GENERATOR lets you choose system and 
number of games, Monday or Wednesday draw and 
calculates the entry cost (NSW LOTTO). 

LOTTO GENERATOR 

10 REM ### INITILIZE ###’BPSB 

100 POKE 53280,0: POKE 53281,0: PRINT “[CLR]”’DQOA 

110 PRINT “[<BLK>,SPACE71LOTTO NUMBER GENERATOR” 

‘BAFE 

120 PRINT “[SPACE10]BY BILL SHIELDS”: PRINT ‘CBTD 
122 PRINT “WHAT SYSTEMS DO YOU WANT TO PLAY (6,7,8,9,10, 
11,12,13,14,15)”: INPUT Nl’CDLP 
125 INPUT “HOW MANY GAMES DO YOU WISH TO PLAY”;N: 

IF N<6 OR N>20 THEN I25’GLLR 

127 REM # # # SET UP ARRAY FOR NUMBER GENERATION # # # 
’BKNO 

128 N1=INT (N1):N=INT (N)’ELRK 
130 DIM A(I6,2I)’BIOA 
140 FOR X=1 TO N’DDXB 
150 FORY=l TONl’DEXC 
160 A(Y,X)=INT ( RND (l)*39)+l’FOLH 
170 NEXT Y’BBSC 
180 NEXT X’BBRD 

182 PRINT “[DOWN5,RIGHT121THINKING, 

’BACK 

190 FOR X=1 TO N’DDXG 
200 FOR Y=1 TO Nl’DEXX 
210 FOR Yl = l TO Nl’DFRA 
220 IF Y=Y1 THEN 260’DGTB 
230 IF A(Y,X)=A(Y1,X) THEN 400’DQIE 
260 NEXT YI’B CMD 
270 NEXT Y’BBSD 
280 NEXT X’BBRE 

399 GOTO lOOO’BEXQ 

400 A(Y,X)=/A/r f RND (t)°39) + l’FOLE 
410 GOTO 200’BDBA 

1000 INPUT “DO YOU WANT A HARD COPY (Y/N)”; 

HS’BDRB 

1010 IF H$<>“Y” AND H$<>“N” THEN lOOO’HIIA 
1020 IF H$=“Y” THEN 2000’DGHX 
1030 FOR X=I TO N’DDXX 
1035 PRINT “THE NUMBERS FOR GAME NO. ”;X;“ARE”‘BDPI 
1040 FOR Y=1 TO Nl’DEXY 
1050 PRINT A(Y,X);’BHQA 
1060 NEXT ‘BAEY 
1070 PRINT ‘BACA 
1080 NEXT ‘BAEB 
1299 GOTO 3000’BEAO 
2000 OPEN 4,4’BDAU 
2002 FOR X=1 TO N’DDXX 

2010 PRINT#4, CHR$(14)“THE NUMBERS FOR GAME NO. ”;X; 
“ARE:’”CINF 

2020 FOR Y=1 TO Nl’DEXX 
2030 PRINT#4,A(Y,X);’BILY 
2035 NEXT ‘BAEC 
2040 PRINT#4’BBDX 
2050 NEXT ‘BAEY 

tnno PRINT “DO YOU WANT TO PLAY[SPACE, 

RVS1M[0FF10NDAY or M0N/|RVS]W(0FF]EN’S DRAW”: 
INPUT MS’CDMI 

inM F M$<>”M” and M$<>”W” then 3000’HISE 
inns F M$=“W” THEN 5000’DGND 

3010 ON Nl-5 GOTO 3100,3200,3300,3400,3500,3600,3700,3800,3900 

4000’DCIH 

3100 P=P+25: GOTO 7000’DILY 
iZ ?=p;i80: GOTO 7000’DKFB 
nil P=P+720: goto 7000’DKFC 
"W lJp+2130: GOTO 7000’DLAD 
SoO P=P+5290: GOTO 7000’DLKE 
ifinn P=P+11640: GOTO 7000’DMEF 
nil p=p+23290: GOTO 7000’DMIG 


3800 P=P+46390: GOTO 7000’DMOH 
3900 P=P+75465: GOTO 7000’DMTI 
4000 P=P+250740: GOTO 7000’DNIA 

5000 ON Nl-5 GOTO 5100,5200,5300,5400,5500,5600,5700,5800,5900, 
5000’DCCI 

5100 P=P-l-50: GOTO 7000’DIIB 
5200 P=P-f-355: GOTO 7000’DKID 
5300 P=P-I-1420: GOTO 7000’DLBE 
5400 P=P+4230: GOTO 7000’DLDF 
5500 P=P-I-10540: GOTO 7000’DMCG 
5600 P=P-I-23180: GOTO 7000’DMGH 
5700 P=P+46390: GOTO 7000’DMOI 
5800 P=P+86090: GOTO 7000’DMPI 
5900 P=P+150540: GOTO 7000’DNFK 
7000 TP=(P*N-1-15)/100’ELME 
7010 PRINT “THE TOTAL PRICE FOR ”;N; 

“GAMES IS S”;TP’BGAK 
9999 END ‘BACD 



SWAP 

CONTINUED FROM PAGE 30 

828 

32 253 174 

JSR 44797 

831 

32 139 176 

JSR 45195 

834 

132 252 

STV 252 

836 

133 251 

STB 251 

833 

32 253 174 

JSR 44797 

841 

32 139 176 

JSR 45195 

844 

132 254 

STV 254 

846 

133 253 

STR 253 

343 

160 4 

LDV 4 

850 

177 251 

LDR <251>,V 

852 

72 

PHR 

853 

177 253 

LDR <253>,V 

855 

145 251 

STR <251>,V 

857 

104 

PLR 

858 

145 253 

STR <253>.,V 

860 

136 

DEV 

861 

16 243 

BPL 850 

863 

96 

RTS 

828 

BASIC routine checks for comma 

831 

BASIC routine to find variable address 

834 

Store address in this and next line 

836 

low byte in 251 


838 

Check comma and do it again for next 

841 

variable 


848 

###Thls is the Y to be changed### Held 

850 

In address 849 


852 

Stack used as temporary storage 

861 

Branch until Y becomes negative. 
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TWO SWITCH PROJECTS 


Vince Morton 


I run the following configuration: C64, 
1541 and SKAI 64 Disk Drives, with 
an Xectec interface running into a 
BMC BX 1000 Printer. 

I have found that the Skai 64 with its fast 
format can cause problems with disks being 
read on the 1541. Forsome reason the 1541 
does not always respond to disks formatted 
on the Skai 64. This led to a problem for me, 
as I often use the disks in different 
configurations. 


The Skai 64 was easy to alter the address on, 
as it has external address switches, however 
with the 1541 I was left with either changing 
the address by software, which can be a pain 
when you are in the middle of a program, or 
continually opening the lid of the 1541 tocut 
and solder links. The end result of this was 
that I fitted a slide switch into the side of the 
1541 which connects to the two ends of the 
link and allows me to change the address of 
the 1541 from the outside to device 8 or 9. 


TOOLS LIST 

Apart from the parts mentioned 
for each project you will need to 
obtain the following items. 

• Soldering Iron with a fine tip 

• Resin cored solder 

• Roll of insulation tape 

• Cutters & Phillips head 
screwdriver 

• Hook up wire 


DISK ADDRESS SWITCH 


For this project you will require the following 
in addition to the tools listed. 

1 Slide Switch SPST 
Tandy Cat No 275-406 
Sharp knife 
Hacksaw Blade 
Pliers 
Felt Pen 

Small diameter drill bit& hand or electric drill 
Small file 

Disconnect all cables from 1541 Disk Drive 
and turn It upside down on a bench. Remove 
the 4 Phillips head screws securing the two 
halves of the case together and then 
carefully turn the drive back up the right way. 

Remove the top lid of the disk drive. 
Remove the metal RFI shield. 

By Referring to Diagram C you will be able to 
see the location chosen for the switch, (this 
was located in this position to cause no 
interference to other wiring in the diskdrive.) 


For accurate positioning measure in 4 cm 
from the front of the case and using the end 
of the hacksaw blade make a vertical cut 8 
mm deep, then measure in 8 mm and make 
another cut 8 mm deep. 

Break out the plastic in between the cuts 
with the pliers and clean up the slot created 
with the file. 

The switch should now be positioned into 
the slot with the mounting holes on the 
outside and use the felt pen to mark the hole 
positions. 

Switch the switch and remount the switch to 
check hole positions and ensure binding will 
not occur. 

When you are happy with the hole positions 
drill 2 holes just large enough forthe screws. 
Take two lengths of hookup wire approxima¬ 
tely 25 cm in length each, and solder one to 
each of the 2 terminal points on the switch. 


Insulate the terminals with Insulation tape, 
and then mount the switch into the case with 
the two screws provided, ensuring the wires 
are connected to the end of the switch 
nearest the front of the drive. 

Locate link El from either Diagram D or E 
depending on your drive model. You will 
notice that El is shaped as 2 semi-circles 
joined by a thin bridge of track. 

Using a sharp knife carefully cut out the thin 
bridge of track. Now solder one wire to each 
of the semi-circles of El, ensuring that the 
wires touch only those semi-circles. 

During the installation of the switch some 
debris will have inevitably found its way Into 
the drive casing and must be removed. This 
can be achieved by placing the disk on its 
side (select switch down) and using a 10 mm 
paint brush, brush out all the debris. 

The drive may now be reassembled and the 
switch checked for binding. Take care not to 
damage your switch wires during assembly. 



LOCATION OF SWITCH 


If you have followed the instructions 
correctly then changing your drive address 
is as simple as the flick of a switch. 

With the switch in the forward position the 
drive is Device 8 and with the switch back 
the drive is Device 9. 

A couple of Dymo labels will finish off 
the job nicely. 


DIAGRAM C 


'DSl 
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FRONT OF DISK 


DIAGRAM D 


OLD STYLE 1540 or 1541 



DIAGRAM E 


NEW STYLE 1541 
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PRINTER SWITCH 


The second item is the problem with bus 
hang when the printer is connected to the 
serial bus, but not turned on. 

This was even worse for me, as I found that if 
the five volt supply to the Xectec l/F was on 
but the printer off, then the converter I.C. in 
the l/F got very hot. The answer to both 
these problems came In the one idea. I built 
a switch box to plug Into the serial bus 
between the last disk drive and the printer 
interface. This Immediately cured bus 
hangs, as the C64 no longer sees the bus 
beyond the drive. 

In my own version I went one step further 
and used the switch to open circuit the five 
volt supply on the back of the C64, so that 
the cassette plug Is not piggy backed any 
more. The final touch to this switch was to 
add a red led to the box which Is turned on 
when the printer Is open circuited, I decided 
to have the light emitting diode on when the 
printer is off as this reduces the current load 
on the C64 when It is running with all 
peripherals connected. 

ADDITIONAL REQUIREMENTS 

Parts List 

Various Drill bits and hand or electric drill 
1 LED - Dick Smith Cat No Z4010 
1 560 ohm y4W Resistor - Dick Smith Cat No 
R0568 

1 Rotary Switch 6 Pole 2 Pos - Dick Smith 
Cat No S6302 

1 Knob - Dick Smith Cat No H3800 
1 Box - Dick Smith Cat No H2753 
1 6 Pin DIN Line Plug - Tandy Cat No 274- 
9608 

1 6 Pin DIN Panel Socket 
Tandy Cat No 274-9618 
1 Meter 3 Pair Cable 
Tandy Cat No 278-9528 

OPTIONAL EXTRA FOR XECTEC l/F 

4mm Banana Plug 

Dick Smith Cat No P1710 

4mm Banana Socket 

Dick Smith Cat No PI 720 


Prior to starting the project it is necessary to 
set up some initial precepts. 


There are some basic rules which must be 
followed with regard to connectors and with 
the aid of Diagram F we shall cover these. 


Locate the diagram of the 6 pin DIN 
connector. You will notice that there is a 
Keyway marked and then the Pins number 1 
to 5 In rotation around the outside and Pin 6 
•n the middle. 


J^ost connectors the pins are rr\'< 
with a moulded number on the plastic 
east Pin i , so that the orientation rer 
c same right throughout the wiring. 

important as crossed ' 
cause major damage to equipmi 

then^vl^'^^ connec 

desrrihoH to build the t 

to teqt^ this article and i 

thin^nn^' described. The 

Rotarv *'.^t trom Diagram F i 

two Drawing. Each Inner Pii 

6rLTg A & ^ 


With the Switch In one position then 1 will 
connect to 1 A, 2 to 2A etc. with the switch in 
the other position then 1 will connect to 1 B 2 
to 2B etc. This becomes very useful In the 
manufacture of the printer switch box as you 
will see later. 

Finally, before I start into the nitty gritty of 
the construction of the switch manufacture, I 
must explain that the initial instructions will 
be for the standard printer connections and 
then the modifications for Xectec, Grappler 
etc. will be added to the end of the article. 

CONSTRUCTION 


The first part of the construction of the 
switch Is to prepare two items for 
construction firstly strip back the outer 
casing of 6 core cable for a distance of 
approximately 20 cm and cut the wires half 
way between the ends and the casing. You 
must now write down the wire colours nextto 
each of the numbers and use this as a guide 
to construction of the switch. 

The next preparation Is the containerfor the 
switch and wires & connectors and LED. The 
location of each of these items is much up to 
the individual person, however I have 
Included a sketch of the layout of my own 
version in Diagram F. 

Once you have prepared your box, mount 
the rotary switch into the box. Next take the 
LED and examine it, you will find that one leg 
Is longer than the other. This leg is known as 
the anode. Solder the resistor to this leg of 
the LED and insulate with tape. Take two 
different coloured pieces of hookup wire, 
and solder one to the other leg of the LED 
and insulate taking note of the wire colour 
and annotate It “K”. 

Solder the other wire to the bare end of the 
resistor and insulate. Take note of the wire 
colour and annotate It “A”. Mount the LED 
Into the box. 

Diagram G gives the connection details for 
the switch, and should be used in 
connection with the text from here on. 

Take the six wires cut earlier, and solder 
them in accordance with your colour chart 
onto pins 1 to 6 of the DIN panel socket. 
Mount the socket Into the box taking care 
not to damage the wires. 

Feed the cable into the box and solder the 
six wires onto the inner 6 pins from the DIN 
socket to the relevant A pin of each of the 
inner pins ensuring that the colour coding 
remains constant. It is now necessary to 
locate the B contacts of the wires destined 
for pins 6 & 2 on the DIN connectors the B 
side of pin 6 from the DIN connectors should 
have the A side of the LED. 

The B side of PIN 2 from the DIN connector 
should have wire K from the LED connected 
to it. This completes the connections inside 
the box. The only other connections are to 
put the DIN line plug onto the other end of 
the cable, making sure to keep to your colour 
coding standard. Testing the switch Is fairly 
simple using the buzzer tester described at 
the end of this article. Connect one wire of 
the buzzer to Pin 1 of the 6 pin DIN socket. 
Touch the other wire to Pin 1 on the DIN line 
plug and listen for a buzz. If there is no buzz 
switch the switch and try again. If there is still 


no buzz check your wiring. 

Repeat the above for pins 2 to 6. All should 
buzz on a one to one basis with the switch in 
one position and there should be no buzz 
with the switch in the other position. 

If your switch checks out O.K., by this 
method you may now plug the lead Into the 
serial port at the back of the C64 or disk drive 
and then plug your printer cable into the 
socket on the switch box. The switch box will 
(if correctly assembled) display the LED if 
the printer is out of circuit and in this 
condition will prevent serial bus hangs 
caused by the printer being connected, but 
turned off. 

When the printer Is to be used simply turn on 
the printer and switch the switch. 


XECTEC & GRAPPLER 
MODIFICATIONS 


An examination of the connections to the 6 
pin DIN on the Xectec l/F revealed the 
following useful items. 

A. Pin 6 (reset) Is not used in the cable to the 
interface. 

B. The +5v supply from the cassette l/F 
connects directly to the cable going to the 
interface. 

By using these two pieces of information it Is 
relatively easy to modify the switch to 
Interrupt the +5v supply to the interface and 
thus protect it from overheating. 

The first part of the modification is to 
separate the 2 x -F5v wires in the interface 
DIN plug and connect the wire from the 
interface to Pin 6 of the DIN plug. 

The second part of the modification Is to 
remove the wire from terminal 6 of the rotary 
switch and insulate this wire. This wire is 
replaced by the +5v supply wire from the 
cassette interface. 

One of my own major complaints which 
remained at this stage was the fact that I was 
not happy with the piggy back connector 
supplied with the interface. My answer to 
this was to mount a Banana Socket between 
the serial and video output DIN sockets on 
the back of the C64 and solder a wire 
between that and the diode on leg 2 of the 
cassette output. I then attached a Banana 
plug to the +5v supply lead to the switch box. 

Testing of this modified switch differs only 
from the other version in that Pin 6 on the 
DIN socket on the box will go to the +5v 
supply lead, not pin 6 on the DIN line plug. 


Vince Morton is a 35 year old computer engineer. 
He is currently training and customer liason 
manager with a company which supplies software 
to most of the credit unions in Australia. 

Vince has a number of interesting projects in 
preparation for us. 
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ROTARY SWITCH 



6 PIN DIN 
SOCKET 



LOOKING FROM THE 
BACK OF C64 
OR DISK 


ROTARY SWITCH 

1 
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LOOKING FROM THE 
BACK OF SWITCH 


DIAGRAM G 

6 PIN DIN 
PANEL SOCKET 

1 - 


PRINTER SWITCH 

(STANDARD PRINTER CONNECTION) 


1A 



SRQ IN 


6 PIN DIN 
LINE PLUG 

- 1 



3 

4 

5 

6 
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6 PIN DIN 
PANEL SOCKET 

1 - 


2 
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PRINTER SWITCH 

(XECTEC INTERFACE) 



I 


3A 

—• l^ 


6 PIN DIN 
LINE PLUG 

- 1 


2 


3 


4A 


HELP IF NEEDED 

“I am willing to help any reader with any of the 
modifications described in my article if they 
are interested. 

The printer switchbox can be manufactured by 
me for any interested readers for a cost of 
about $30 for a standard unit and $32 for the 
one to run on the Xectec plus postage. If any 
one is willing to bring their equipment to meto 
have modifications noted above performed, 
then they are quite free to contact me through 
the Commodore magazine. 

Anyone who would like to attack their system 
themselves can have details of the mods and 
where to get the bits for the cost of photo 
copying and postage.” 

Vince is a resident of Kealba Park Victoria. 



4 

5 

6 


PIN 
B or 2 

(As per XECTEC l/F) 


TESTER 


Parts List 

1 mini buzzer - Tandy Cat No 273-053 
1 battery clip - Tandy Cat No 270-401 

1 AA battery 

2 lengths of wire 

Solder together the red wire from Buzzer 
and the red wire from the battery clip and 
insulate. Solder the two lengths of wire to 
each of the black wires from the buzzer and 
battery clip and insulate the connections. 
Insert the battery Into the clip. Touching 


together the two wires will now cause the 
buzzer to buzz. 

This buzzer Is handy fortesting cables, (as is 
the switch box) fuses (a good fuse will cause 
a buzz) and many other items of low 
resistance. Never attempt to test an item 
with the buzzer, with power connected. 


Commodore Magazine 
82 Alexander Street 
Crows Nest N.S.W.2065 
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128 Comment 

Greg Perry 


I went to the mountain top last month, I 
actually played with an Amiga for two days! 
But now let’s get back to some serious 
computing. 

The new 128s have finally arrived! Despite 
my sending in an order complete with 
money(!) a few months ago, after several 
STD calls I finally received my system two 


weeks after they hit the shops. Thanks 
Commodore! 

Despite the delay and price, the new 
machine appears to be quite good, 
especially the new sound and graphics 
commands in 40 column 128 mode.(Pity the 
PLAY command is out of key!) I expect we 
will actually see many more users using high 


res., sprites, and sound since it is now 
wonderfully easy. Finally the limitation is in 
one’s creativity and not in remembering 
what to POKE with what! In 40 column Cl 28 
mode one can directly load and display 
‘DOODLE’ pictures with the commands 

BLOAD “name”,B0,P7168:GRAPHIC 1 
Another pleasure is In being able to use 


Neiv Beginnings in Software 


Quality software is important to a computer’s success. Some go a lifetime without it. The Commodore 128 
offers it now. 

How can we do it? The Commodore 128 is fully compatible with Commodore 64 software. That’s over 3,000 
programs available world-wide right now! And that doesn’t include all of the powerful CP/M programs on 
the market that can also be used such as dBase II, VVordstar, Visicalc, etc. In addition to the already huge 
range of software available there is a rapidly increasing range of dedicated 128 software. This range 
includes the following: 


PRODUCTIVITY SOFTWARE 


Q| IDCIDOODIPrr II A sophisticated and very 
Owl LZHiOOriir^ I II powerful professional 
wordprocessor for use in the office, home, school or wherever quality 
document preparation is required. May be used In either 40 or 80 
column mode and comes complete with a 30,000 word spelling 
checker, which can be set for either American or British spellings. 

Q| IDCDDAOC HOQ Produced by the same people 
O w I tZliDAVwlZ 1^0 as “Superscript H’’, “Superbase 
128” is a professional database manager that combines easy menu 
access to all database management functions with complete 
programmability for more advanced users. “Superbase 128” can be 
used in either 40 or 80 column screen formats. 


SUPEROFFICE 128 “Superscript M” can 

function independently, or the user can load the two programs 
together to take advantage of the full 128K of the computer’s memory. 
In this innovative design, the two programs then link up to form a 
complete office system known as “Superoffice 128” that allows 
users to link database files directly to word processed documents. 

QXA/ICTT A Multiplan type product,” Swift” is a very easy to 

^^YYIi I use electronic spreadsheet designed for business, 

education and the home. “Swift” utilises the 128’s 80 column colour 
mode and Incorporates pop-up menus. 

IA MCI A most remarkable software package. Developed for 

your word processing, spreadsheet and filing needs. By 
selecting from an assortment of easy-to-understand pictures, known 
as icons, at the top of each screen, “Jane” eliminates the need to 
become familiar with complicated computer commands. Simply 
select the function you desire to work with and begin. Designed tor 
the school and the home. 


PROGRAMMING SOFTWARE 

lOQ AQQ[I^^QI CD An 8502 machine code 

^OOClVIDLCri assembler, disassembler and 
aditing utility. Vital for any 128 programmers wishing to write their 
programs in machine code for speed and versatility. 


BASIC COMPILER 

“BASIC Compiler” is very useful for programmers, especially in 
applications such as business and education where programmers 
generally write in BASIC. “BASIC Compiler” converts BASIC to 
machine code for extra speed. 

TUTORIAL SOFTWARE 

INTRODUCTION TO BASIC JoST 

the computer language, BASIC. Introduction to BASIC guides you 
through this very easy to learn language. 

T|—|C \/CRY FI ROT A program designed for the 
■ ' V l_ri I I liiOl more advanced BASIC 
programmer, “The Very First” presents the user with a menu of 
128 BASIC 7.0 enhancements such as music, graphics, etc. The user 
can then make a selection from this menu which will give working 
examples of how to take advantage of these areas. 

HANDS ON CP/M PLUS SaiiS. 

trainee to the concepts of information processing as related to the 
modern microcomputer using the CP/M Plus Operating System. The 
tutorial provides a safe training environment within which the trainee 
can rename, erase and copy files etc. as though using CP/M Plus but 
without the fear of causing actual harm to files on disk. 

ART & MUSIC 

MICRO ILLUSTRATOR 

Micro Illustrator is an easy to use colour drawing package turning 
your 128 into an easel. Allows you to create all types of cartoons, 
pictures and patterns. Learn to create Imaginative graphics and 
expand you artistic skills. 

PA *7 A Vy Design and create your own figure, then animate 
I J ■ it, then create a suitable background and finally set 

it to music. Creating your own animated cartoons could never 
be easier. 

k/ll ICIO II Consisting of an overlay musical 

IVlLJOIw IVIAMxDll II keyboard learn how to play 
music. Play along to your favourite rhythm and bass accompaniment. 
Write your own music and save it for later. Even comes complete with 
five in-built songs. Very well suited to the school and the home. 
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Superscript WP in 80 columns on the new 
monitor. (I haven’t abandoned my 8032 yet 
though. Still the best workhorse Commodore 
has made.) 

64 Compatibility 

The rumoured C64 compatibility of the C64 
mode Is Indeed true (it’s 99.9969% 


compatible), with the minor exception of 
location 1 (which reflects the status of the 
caps lock key In bit 6) and the MAJOR 
exception of memory location 53296 
($D030) which for safety must NEVER be 
poked. Try POKE 53296,1. Very strange 
things happen. Although new number key 
pad Is not directly available In C64 mode it Is 


possible to write a machine code wedge 
which activates It. Leave It alone! At present 
it may do strange things with terminal 
programs and some others. 

One big problem for most of us dedicated 
Commodore users Is exactly what do we do 
with the new CP/M mode? 

[’A> do something now!’] □ 





For many applications today, a computer alone may not be enough. You may want to save 
information for future use, print out documents and other important dates, even venture into 
the vast area of telecommunications. 

To have the ability to do these and more, you need more than a computer — you need the 
complete and versatile Commodore 128 Personal Computer System. 

The needs of the user determine the composition of the system. At Commodore, we offer 
quality and affordable peripherals including monitors, disk drives and printers. These pro¬ 
vide you with the versatility to adapt to a variety of ever-changing needs. 

And what’s more, our peripherals are specially designed to maximise the outstanding 
features of the Commodore 128, providing you with what is perhaps the most powerful per¬ 
sonal computer on the market today. 

When growing pains creep up on your computinq needs, take the only cure that makes sense 
— Commodore peripherals. The following peripherals are just some of the range: 

DPS 1101 DAISYWHEEL 
PRINTER 

Produce professional letter quality documents on 
your C128 with the DPS 1101 printer. Features 
include: 18 characters per second print speed, bi¬ 
directional printing, underlining, bold face, 
shadow printing, superscripts and subscripts. 

A must for professional users. 


MPS 803 DOT MATRIX 
PRINTER 

Improve your already versatile Commodore 
system with this graphic quality 6 x 7 dot matrix 
printer. It is bi-directional, and features all 
alphabetic, numeric, and PET graphics 
characters, 60 character per second speed, 80 
column width and more. There’s also an optional 
tractor feed if you desire. If you're looking for an 
inexpensive graphics quality printer to complete 
your system, the MPS 803 is for you. 


THE COMMODORE MOUSE 

A mouse is one of the simplest input devices on 
the market today! By moving it around on a flat 
surface you can select menu options without 
having to type commands. Create pictures on 
your screen as if you were using a pencil. The 
perfect solution for alternative keyboard entry. 
(N.B. The use of the mouse is software 
dependent). 


THE COMMODORE VIATEL 
ADAPTER 

Simple and easy to operate the new Commodore 
Viatel Adapter allows you to enter the world of of 
videotext communications. No messy wiring the 
Adapter simply plugs straight into your C128 and 
you telephone socket. All necessary software Is 
built-in to the Adapter allowing instant access to 
such services as electronic banking, travel and 
accommodation booking, stockmarket buying 
and selling and much more. (N.B. Viatel is a 
registered tradename of Telecom Australia.) 


1570 DISK DRIVE 

The 5% inch single disk drive that allows you to 
store large amounts of information in seconds. 
Advanced design accepts single-sided double¬ 
density floppy diskettes for up to 170K of data 
storage. Features fast data transfer rates for 
increased preformance and the ability to read 
common CP/M formats. It simply plugs straight 
into your Commodore 128. 

A must for any serious computer user. 


1901 COLOUR MONITOR 

^ “^“'/composite colour monitor that is designed 
specifically to maximise the video capabilities of 
your Commodore 128 computer. With its high 
resolution 34 cm (14") screen, the Commodore 
1901 provides a sharper 40 column colour image 
than a television set. There’s also an RGBI mode 
for use with the Commodore 128’s 80 cloumn 
colour capability. A must for all of those important 
productivity applications. 


1201 MONOCHROME MONITOR 

A 31 cm (12") low fatigue amber display the 1201 
monotor allows you to take advantage of your 
Cl28’s 40 and 80 column modes. The 1201 is 
easy to move as it weighs only 6 kgs. It also 
comes complete with an in-built speaker that 
allows you to listen to the sound output of your 
C128. Ideally suited to schools and business. 


ENHANCE YOUR 
COMMODORE 128 
PERSONAL COMPUTER SYSTEM 


A sample of the promotional material Commodore is producing to support the release of 128. 


Commodore Magazine Volume 5. Number 5 39 













































COCKROACH 

TURBO 
ROM 


A Review 

Greg Perry 


While investigating the variations of the C64 
Kernel ROMs for an article in the 
Commodore Magazine (Vol 5 No 4), one of 
our editors, Paul Blair, made a number of 
suggestions that some of the less used 
Kernel routines could usefully be replaced 
with improved disk access commands. 

Unlike many other good ideas, this did not 
end up in the rubbish bin but was picked up 
by Ralph Down and Stu Burrows from 
Cockroach Software on the Gold Coast. 
(Probably from an old magazine lying on the 
beach!) With the experience gained from 
their Turbo-Roach’ products, and by 
replacing all the cassette and RS232 
routines with several pieces of tightly 
written machine code, they have managed 
to produce a very worthwile product for the 
Commodore 64 disk user which takes a 
dramatic step in bringing the 1541 into the 
computer age. 

in short, Cockroach Software have produced 
a plug-in replacement for the standard 
Kernal ROM of the C64 which increases the 
speed of the SAVE, LOAD, and VERIFY 
commands by a factor of roughly five. They 
have also found space to Include a number 
of extra useful commands. The ROM can 
even be custom made to display your name 
and choice of screen and border colours on 
power-up. 

As a bonus, the new 8K Turbo-ROM is 
actually supplied in a 16K package with an 
attached switch, providing the user with the 
best of both worlds - at the flick of the switch 
the user can select either the Turbo-ROM or 
the normal Kernal ROM. (Unfortuntely, it Is 
otten necessary to turn the C64 off before 
switching ROMs.) The package appears to 
perform very well with most software except, 
o course, communications programs, such 
s rERM64, because the RS232 routines 
ave been removed. Such programs must be 



loaded and run with the standard Kernal or 
loaded in Turbo mode then the ROMs 
switched before resetting the C64. 

The new chip is mounted in an adaptor 
socket which replaces the socket normally 
occupied by the 8K Kernal ROM. In most 
cases it is simply a matter of carefully 
removing the old ROM from its socket and 
inserting the Turbo-ROM. Unfortunately, 
about 20% of C64’s have soldered-in ROMs. 
In these cases it is necessary to unsolder 
the existing Kernal chip and the solder In the 
24 pin replacement socket supplied with the 
kit. Since it is quite easy to damage the 
printed circuit board of C64, this task should 
be entrusted to a competent technician. (Or 
see your local user group.) 

The Turbo-ROM is compatible with the C64 
and 1541 drive and a version is available for 
the SX 64. (This must be specified when 
ordering.) The authors say that the new ROM 
is NOT compatible with drives otherthan the 
1541 I have not had the chance to try the 
ROM with the SKAI SUPER drive but there 
would appear to be a good chance of 
success. 

The main features of the Turbo-ROM are: 

• All SAVE, LOAD, and VERIFY 
commands now default to disk. 
(There is no need to add the ‘,8’ 
after these commands.) 

• Five times faster LOAD. 

• Five times faster VERIFY. 

• Five times faster SAVE. 

• Optional fast FORMAT (30 seconds). 

• Improved ‘SAVE command. (Old 
program is actually scratched first.) 

• Screen dump to printer- even during 
program execution - C= F7. 

• Built-in enhanced DOS wedge using 
the command. 


• Three extra commands have also 

been added. These are: 

• ‘ZAP’ <RETUR> - same as SYS 
64738 (cold start). 

• ‘OLD’ <RETURN> - restores BASIC 
program after NEW or RESET. 

• ‘MON’ <RETURN> - enter a 
machine code monitor 

The built-in DOS wedge is very welcome, 
removing one of the main problems 
encountered with C64 disk access. For 
example, entering on its own displays the 
disk status, while entering ‘@$’ displays the 
disk directory on the screen. (Does not affect 
program memory.) The command can 
also be used to send any other direct disk 
access commands such as SCRATCH, 
RENAME, VALIDATE, NEW etc. 

Even though the disk access defaults to 
drive 8, the Turbo-ROM will support 2 drives 
as devices 8 and 9. The command ‘@9’ has 
been incorporated to allow drive 8 to be 
changed to drive 9. 

As well as a single key low res screen dump 
via C= f7 (even works during program 
execution), the ‘©P’ command provides the 
equivalent of OPEN4,4:CMD4. That is. it 
directs all printed output to the printer ^or 
program LISTings and the like. (‘@0’ returns 
output to the screen.) 

A number of other interesting features make 
for easier program loading. 

First, entering <RETURN> loads first 
program on disk (similar to LOAD“*”,8,1)- 
Second, pressing SHIFT RUN/STOP prints 
‘LOAD’ [RIGHT18] ’,8,1’ and leaves the 
cursor over the second comma which allows 
the user to change the comma to a colon : 
before pressing RETURN. This last command 
greatly simplifies program loading. For 
example, display a directory with the 
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command, move the cursor up to the line 
displaying the required program, press 
SHIFT/RUN/STOP, then press RETURN to 
load the program. Couldn’t be simpler. 

Unlike some fast loading and saving 
routines, the Turbo-ROM works with other 
devices such as printers on the serial bus. It 
is also compatible with the VIC SWITCH 
network used in many schools. With such 
networks, not all eight computers need be 
fitted with the ROM but only those which are 
will load faster. (Turbo-ROM will not work 
with the MULTI-LINK network.) 

Most Importantly, the Turbo-ROM does not 
affect sequential or relative file access and 
is safe to use with data base programs. 
(Unlike some other packages which have 
been known to corrupt disks with relative 
files.) The Turbo-ROM does, however, affect 
the C64’s jiffy clock and hence the Tl andTI$ 
commands. 

The ‘MON’ command is very useful for 
machine language programmers. This 
command looks for MONAD (Paul Blair’s 
machine language monitor) or DRVMON64 
(a machine language monitor by Mike 
Henry) at $8000 then SCOOO and, if present, 
enters the monitor. The fast disk access 
works with most ML monitors, although fast 
SAVE does not work with MONAD. 

Using Turbo-ROM 

Because the Turbo-ROM is simply a 
modified Kernal and therefore requires very 


few ‘hooks’ or patches into the C64, just 
about all the C64’s memory is still freely 
available for programs. The cartridge port is 
also still available for monitor cartridges, 
such as HESMON, and the like. 

The overall success of this approach is 
shown by the fact that Cockroach Software 
appear to have been successful in making 
their ROM load most commercial programs. 
There are, however, a small number of 
commercial programs which still refuse to 
load in Turbo mode. Of course, turn the 
computer off, switch in the standard Kernal 
ROM, turn the computer back on, and such 
programs can then be loaded normally. 

In most cases, loading times of commercial 
software are significantly improved with the 
Turbo-ROM. However, fast loading will not 
work with some commercial software which 
use their own ‘slow loading’ routines using 
direct disk access commands. 

Even many of the more recent commercial 
software which have fast loading built-in, for 
example, SUMMER GAMES II, TURBO-64 
disks, ISEPIC, and DISECTOR, will load 
normally using the Turbo-ROM. 

Just how much speed improvement is there 
with using the Turbo-ROM? The figures 
below give a good indication. Figures for the 
popular, but considerably more expensive, 
1541 FLASH are also included by way of 
comparison. I have not Included times forthe 
EPYX FAST LOAD Cartridge since It does 
not support a fast SAVE routine. (The Turbo- 
ROM is slighity fasteron loading than EPYX.) 


PROGRAM 

Loading Time in Seconds 



NORMAL 

1541 FLASH 

Turbo-ROM 

PITSTOP II 

144.99 

FAILED 

29.78 

(4.87) 

COLOSSUS CHESS 

126.24 

43.91 (2.87) 

29.29 

(4.31) 

DOODLE 

87.92 

33.44 (2.63) 

24.85 

(3.54) 

GHOST BUSTERS 

185.67 

93.94 (1.98) 

76.97 

(2.41) 

PFS FILE 

129.50 

47.57 (2.72) 

29.28 

(4.42) 

EASY SCRIPT 

63.49 

31.30 (2.03) 

54.91 

(1.16) 


(The figures In parentheses show the speed improvement factor with respect to standard 
times.) 


The following table shows the typical speed enhancement on SAVE and LOAD operations 
a user may expect for everyday programs. 


Disk 

Time for operation in seconds. 


Blocks 

Normal 

1541 FLASH 

Turbo-ROM 

25 (SAVE) 

19.64 

14.20 (1.38) 

6.90 (2.85) 

25 (LOAD) 

17.40 

5.74 (3.03) 

3.82 (4.55) 

50 (SAVE) 

36.83 

26.03 (1.41) 

9.10 (4.05) 

50 (LOAD) 

33.15 

10.30 (3.22) 

6.30 (5.26) 

100 (SAVE) 

70.40 

49.99 (1.41) 

13.60 (5.18) 

100 (LOAD) 

65.44 

19.35 (3.24) 

11.13 (5.88) 

200 (SAVE) 

137.16 

97.94 (1.40) 

22.57 (6.08) 

200 (LOAD) 

127.32 

38.77 (3.28) 

21.20 (6.01) 


Notice that the speed improvement becomes 
greater as the program length increases. 
One other interesting point; because the 
Turbo-ROM’s fast SAVE routine chains the 
disk sectors in a different manner (although 
completely compatible with normal operation), 
programs SAVEd with the Turbo-ROM will 
also LOAD approximately 8-10% faster with 
that ROM. 

A Minor Problem: Disk Errors 

After using the Turbo-ROM for a month I 
have found it to be a very useful addition to 
my C64, with no major problems. 

However, a minor problem arises if a disk 
error is encountered when using the fast 
LOAD or SAVE routines. With the fast LOAD, 
the drive may go into limbo and the C64 goes 
to sleep out of boredom. Actually, when an 
error Is encountered, the drive attempts to 
re-read the offending sector, and retries, and 
retries forever. (But with no horrible noises!). 
During this time the C64 keeps waiting for 
the rest of the program which never comes. 
Unfortunately, since the screen blanks 
when both LOADing or SAVEing, and since 
the disk just keep spinning, there is no direct 
indication that a problem has occurred. (One 
piece of irrelevant Information - while 
loading a program, it is actually possible to 
open the disk door, take out the disk, replace 
It and close the door, and the program will 
continue to load correctly! However, this Is 
not recommended.) 

With the standard 1541 SAVE routine, any 
disk errors encountered cause the disk to 
stutter and leaves an unclosed file (type 
PRG*) In the directory. A corrupt BAM is also 
a possibility. The Turbo SAVE works 
differently. When a program is to be saved 
with the Turbo-ROM, first of all the disk is 
checked to see If there is sufficient space on 
the disk for the program. Disk errors 
encountered with the Turbo SAVE cause the 
save to be aborted, leaving only a one block 
program allocated for the program in the 
directory and the BAM. However, the actual 
program length may be longer. 

If this occurs, under no circumstances 
should the further programs be saved to the 
offending disk before the errors are rectified 
or the disk reformatted. (Which only takes 30 
seconds using the fast format). Until this Is 
done, It will generally be impossible to save 
other programs successfully to this disk 
because the same error will be found again. 

Overall 

In summary, I commend Cockroach Software 
on a fine product. One of the features that 
particularly appeals to me Is tha fact that it 
performs Its job unobtrusively and the extra 
commands are both easy to understand and 
use. The price, by the way is $40.00 per ROM 
(including 24 pin adaptor socket) or$45.00 if 
a customised message and colours are 
required. Suggested fitting cost is an extra 
$5.00, either from Cockroach directly or via 
your local user group. 


NEXT ISSUE: 

Epyx Fastload vs Turbo Rom 
- A Comparison Test/Review 


Commodore Magazine Volume 5. Number 5 41 
























COMMODORE 64 MACHINE 
LANGUAGE TUTORIAL 

by Paul Blair 

Introduction to Machine Language complete 
with listing that illustrates and will quickly 
demonstrate many of the points made in the text. 


CLEARANCE SALE 

$10.00 

Accompanying Disk $10.00 




THE VIC FAMILY BOOK 

by Michael Spiteri 

Michael Spiteri’s first book is a collection of short 
and effective programs for the VIC. Programs to 
use in the home, work and play. A special section 
for adventure gamers and super expander 
cartridge owners. 


CLEARANCE SALE 

$ 9.50 


DISK OFFER # 5 

FIVE PROGRAMS FORTHE 802 (1526) PRINTER-Issue32 
SPEECH PROGRAM (64 & VIC) - Issue 32 
SFX GENERATORS 1, 2 & 3 - Issue 32/33 
SPACEBATTLE - Issue 32 TEXT COMPACTION - Issue 33 

CHESSPLAYER - Issue 33 ADDRESS BOOK - Issue 33 
64/GEMINI/CARDCO - Issue 32 Plus Others 
LOTTO GENERATOR - Issue 33 . c. 

*P&P included ^ 


$10.00 


ORDER FORM: I We wish to order the following items: 


COMMODORE64 ML TUTORIAL $10.00 



VIC FAMILY BOOK $9.50 



DISK OFFER # 5 $10.00 



P & P $1.50 Certified $2.50 



Name 


Address 



(Division of Mervyn Beamish Graphics Pty Ltd) 

82 Alexander Street, 

Crows Nest, N.S.W. 2065 
(02) 439 1827 


Phone 

O I enclose cheque for 

□ Please charge my BANKCARD VISA MASTERCARD 

Expiry date Signature 
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Adventure Help 

ADVENTURE HELP SPECIAL Michael Spiteh 


Welcome to an extra-special Adventure 
Help. 

This article was due to be printed months 
ago, but it seems the it was lost on a 
corrupted disk In some hidden cave! I 
managed to dig up an extra copy, after 
surviving many traps and getting lost several 
times. So here is the Treasure! 

Some of the problems are a bit old, but they 
may cometo the aid of some desperate 
adventurers! 


To solve your adventure problems, write to: 

Adventure Help 
Commodore Magazine 
82 Alexander St 
Crows Nest NSW 2065 

OR contact me on VIATEL number 
378697780 


Ben Wright of Brisbane had trouble with 
cannibals in Interceptor’s Jewels of 
Babylon. If you are stuck in the same spot 
then try giving the watch to the cannibals. 
Where is the watch you may ask. Well, that is 
another story. 


A. Lister Is one of those brave adventurers 
who Is tackling Infocom’s ZORK I. This chap 
sent me 5 problems which were bugging 
him. Here are the problems, three of them 
with solutions. 

1) CANNOT GET INTO HADES: You’ll need 
the bell 2 candles, matches and prayer 
book. Ring bell, light candles and read a 
prayer. You should be able to enter Hades 
now. 

2) CANNOT INFLATE BOAT: You need the 
pump to inflate the boat. 

3) CANNOT OPEN GRATING: Grating can 
be opened from the underside. 

4) CANNOT GET THROUGH WOODEN 
DOOR IN LOUNGE: Can anyone help? 

5) CANNOT GET PLATINUM BAR: Echo 
Echo Echo. 

Another ZORKer is Simon Dobner, he has 
Sulty getting into Hades. He also has 
difficult? getting into the coal mine. Can 
anyone help Simon? 

Pnnr ol Marion Zacher. After getting 60% in 
Dotsof ’s ALIEN, finding the UFO and fitting 
the d?sk she doesn’t know what to do next! 
come one everyone, give her some help! 

cirntt Adams is up to his tricks again. David 
Scott '^95T,T,rk in THE COUNT. He cannot 

Sn^he stupid vampire! A popular problem. I 
SL fold you have to murder the dude during 
the day when he’s asleep. 

Scott Adams again! Andrew Gill cannot light 

adJIntURELAND. which is preventing him 

from eTring the ‘black hole’, it’s been years 

sinriplaye^thisgamebuMthjnkyouneed 

(matches. Use the command LIGHT ON. 

And aqain'ii Kevin Ferguson is stuck m the 
Ana agam^.. ue cant get out without 

oet^rediN^y pushing the button, Kevin, 
fhen hmlng your head. You should be able to 
lelve safely now! Kevin is also stuck in 


WARGAMES - what do you do with the 
podule? He asks. I don’t know! Does 
anyone?? And in KING SOLOMON’S MINE 
(Dotsoft), what is he supposed to do with the 
box & amulet! He has problems in AXTEC 
TOMB - how do you get up into the tree 
house! 

Kevin did’nt just ask for tips, he gave an awful 
lot of them. I will give you a selection. Here 
are some of his tips: 

BASTOW MANOR: To enter the house, 
make your way to the shed and move the 
case to reveal a trap door. If you become 
tired, drop the branch. Then light the torch, 
pick up the branch and go through the trap 
door. Use the branch to cross the pit. 

WARGAMES: Removegrillfrom airductwith 
the screwdriver. Tie cable to tree and climb 
cable. Break the lock on the machinery room 
door. 

AZTEC TOMB: Catch and examine the fish 
in the jar. Water the plant and climb the 
beanstalk. Frighten the elephant with the 
dead mouse. 

Kevin has also got cheat sheets for 
Mountain Valley adventurers. Write to mefor 
details. Thanks for an interesting letter, Kev! 

BASTOW MANOR Is troubling lots of 
people these days. Mr. M. Davis of NSW Is 
having trouble getting the Brass Key from 
the closet without getting hit from behind. 
He’s wearing the armour, but that doesn’t 
seem to help. 

An adventure that has been keeping me 
busy is Infocom’s HITCH HIKERS GUIDE 
TO THE GALAXY. C. Bell of Bondi, NSW 
offers are solution for the Babel Fish 
problem. Here are the instructions to catch a 
fish: 

1) Hang gown on hook. 

2) Put satchel in front of the Robot Panel. 


3) Cover the drain with the towel. 

4) Put the mail on the satchel. 

5) Push the button on the dispensing 
machine! 

He has problems in this game. Does anyone 
know how to get the Ultrasonic Vacuum Aid 
back to the heart of gold? How do you get 
through the screen door? 

I’d like to give a special thanks to Keith 
Campbell, the adventure expert from 
England’s Computer and Video Games 
magazine. Many of the hints were supplied 
by Keith. Thanks Keith! 

Tofinish off, here are some tips forsomewell 
know adventures: 

DALLAS QUEST You’ll need the ring, bugle 
and pouch before you board the plane. The 
chief is really JR in disguise. Don’t give him 
the ring!!! 

TAREK The Fungoid has two important 
items one you’ll need to get into the central 
computer and the other to get the internal 
shuttle security code. Also if things start 
falling apart and you’ve become disoriented 
try to get back to your own quarters. 

HEROES OF KARN A bird will get rid of a 
serpent as long as you let the frog hero do 
the work. 

SPIDERMAN Have a good feel of the 
locations around Mysterio’s location. 

EUREKA! A lift will take you down, but make 
sure you can go up as well! 

THE HOBBIT Throw barrel out of trap door 
and jump onto It! 

That’s all for now. I’ll need more letters if you 
want another bumper help page! 

□ 


Sufieniax 

MASTERMIND 64 - CBM 64 

How many Questions can you answer? Over 100 questions, 7 
subjects with aNthe features of the TV favourite. Up to 4 
Players. 

TAPE $1 2.00 DISK $1 5.00 

$12 NEW PROGRAMS $12 

BUDGET PACK I - $1 2.00 Tape 

Address Book/Supercall for the CBM-64! 
HORSE SELECTION - $12.00 Tape 
A betting program for the CBM - 64! 

Add $2.00 for P & P ONE WEEK DELIVERY!!!! 

(03) 786 9778 
20 LAROOL CRESCENT 
SEAFORD VIC. 3198 
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THE OTHERS 


David Roth 

White Lightning: 

A professionai 

deveiopment 

system 

White Lightning is a FORTH-based arcade 
game development system from OASIS 
Software. In addition to an (almost) standard 
FIG FORTH, it has over 300 graphics and 
sound commands. Since such commands 
take up most of the execution time in a 
typical arcade game, their implementation in 
FORTH makes White Lightning comparable 
in speed to machine code. White Lightning 
FORTH is more readable than machine code 
and easier to debug since it has reasonable 
crash protection. I was able to warm start 
White Lightning most of the time after a 
system crash with the use of a ‘reset’ switch. 
White Lightning is not for beginners - it is 
aimed at people who want to write high 
quality games. It is also well suited for some 
scientific and mathematical applications, as 
I will demonstrate later. It could be a useful 
tool for undergraduate mathematicians or 
scientists seeking more speed than is 
available from BASIC or PASCAL. 

A sprite generator is provided, together with 
a predefined arcade set. Up to 255 software 
sprites may be defined, depending on their 
size and the available memory. These 
sprites are in addition to the standard 
hardware sprites available on the CBM-64. A 
software sprite may be up to 6 screens wide 
(e.g. for use as a scrolling background), but 
such large sprites are costly in memory. 
FORTH words are provided which allow 
sprites to be rapidly Inverted, rotated, 
reflected, etc. One of the best features of the 
package is the multi-tasking capability - 
running different programs In foreground 
and background at the same time. For 
example a background program (interrupt 
driven) can handle a scrolling backdrop, 
while a foreground program handles the 
objects which move against the backdrop ( 
as with “Attack of the Mutant Camels’’). This 
eliminates the need for complex calculations 
to get a smooth scroll. 

Since new FORTH words may be defined In 
terms of existing ones, the White Lightning 
language is readily extendible. For Instance, 
a diagonal scroll command may be set up 
using a combination of existing horizontal 
and vertical scrolls. There Is also a BASIC 
interface which alows the use within FORTH 
of a limited number of BASIC commands. 
This interface is useful for text, but there is 
no easy way to access BASIC variables from 
forth, a complete BASIC package, BASIC 
Lightning is provided at no extra charge on 
the White Lightning disk. It has a similar 
of commands to those available In 
White Lightning, in addition to a useful set of 
structured programming constructs (e.g. 
UASE. PROCEDURES, etc). This BASIC 
package rnay be used to quickly test out 
Pnte designs and game ideas for later 
mpiementation in White Lightning. I 
erstand that a compiler will shortly 
oecome available for BASIC Lightning. 

An utility is provided which converts 
ompleted White Lightning programs into 
programs which can run independently of 
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the White Lightning environment. Such 
programs may be marketed without any 
constraints or costs (although OASIS would 
like a plug !). The package is well 
documented and clear examples are given 
of the graphics and sound capabilities. A 
BASIC demo program is Included on the 
distribution disk, but unfortunately no White 
Lightning demo program was provided. It 
seems a pity that no array handling words or 
string/numeric I/O routines were provided, 
since these functions are frequently required 
in many games (see previous issues of this 
magazine for examples of such routines). 
Mathematical functions such as sine or 
square root would also be useful (with 
appropriate scaling and use of double 
precision) for maths/science work. 

The speed of White Lightning allows 
simulations of physical events involving 


many calculations to be displayed reasonably 
quickly - the movements of molecules, 
atomic decay, prey/predator interaction, etc! 
The following program provides a simple 
Illustration of Brownian motion. This would 
be hopelessly slow in BASIC or even 
PASCAL, but the speed of FORTH can 
provide a crude ‘motion picture’ of moving 
molecules. The program demonstrates the 
use of White Lightning graphics commands 
the structured programming construct 
CASE ... ENDCASE, and the generation of 
random numbers. The effects of compression 
on gases Is also shown - when the run/stop 
key is pressed, the ‘graphics area’ of the 
screen is halved and the ‘molecules’ appear 
to move faster in the smaller space. When 
the program has compiled, ‘GO’ starts 
execution. 

□ 


< o*P brownian motion > 

< rede-fine VRRIRBLE and CRERTE to standard FORTH > 

s i^ariable here variable } : create variable -2 allot ; 

< mn * no molecules, an * array size > 

50 constant mn mn 2 ♦ constant an 

< de-fine arrays to hold x and y co-ordinates > 
create x an allot create y an allot 

< variables > 

variable xl variable yl variable xl variable yl 319 xl ! 139 y\ \ 

< allocate random co-ordinates - within screen limits to each 
molecu le > 

: setup mn 0 do XI ® rnd xi2 3f. + !yie rnd y i 2 ! loop • 

setup < execute it > 

< adjust co-ordinates according to the toss ot a 4 sided die > 

: tossup 4 rnd 

case 1 ot xl e 1 xl ! endot 

2 ot xl e 1 “ xl ! endot 

3 ot yl e 1 + yl ! endot 

4otyl©l-yl ! endot 

endcase 

< check it X or y are beyond screen limits - held in xl, yl - i.f 
c:o, reset them to screen limits > 

xl e xl G > it xl 0 xl ! endit xl G 0 < it 0 xl ! endit 

yl G y I G > it y 1 G yl ! endit yl G 0 < it 01^1 ! endit ; 

< p lot points on screen > 

: points mn 0 do 

X i 2 ® CO I ! 

y i 2 if 0 row ! 

Plot loop ; 

< move each point according to TOSSUP > 

: brownian mn 0 do 

X i 2 if + 0 xl j 
y i 2 )f + G yl ! 
tossup 

xl G X i 2 if -»■ ! 
yl Gy i 2 if ! 
loop ; 

< ma.i n I i ne > 

: go 

< set up graphics screen ~ 'sprite 0' > 

< white background, b lack background > 
white black 0 setatr 

< hires graphics ) 
s2co I mono hires 

< sprite 0 is-the_screen ) 

0 spn ! sc Ir 

< screen is white toreground, b lack border > 
white hpaper black hborder 

< set 'plot' mode) 

3 mode 

< do tor ever ) 
points < plot points ) 
sc Ir < c lear them ) 
brown iari < move them > 

?terminal < run/stop pre««:f»ri o s 

2, then reset it back to 313 > 

itxlG2/xl ! xlG 10< it319 

end i t 

0 unti 1 ; 


I.f X co-ordinate < 
xl ! endit setup 









datapuncli computer centre 

Commodore Specialists 

Home computers. School & Business Systems 

★ Modems ★ Books, magazines 

★ Disk Drives ★ Garries, accessories 

★ Printers ★ Quick Data Drives 

6/168 Main Road, Blackwood S.A. 5051 

Ph. (08) 278 8662 


EDUCATIONAL SOFTWARE 

PRINTERS-CABLES QUALITY GAMES 
COMMUNICATIONS EXPERTS 

"Specializing in better quality Commodore programs” 

325 George Street Sydney (02) 29 1631 


COMMODORE UPGRADES 


VIC20 EXTRA MEMORY- 
32K RAM, switchable 
64KRAM,inc RAMDISK 


80 Cokimncard for CBM64 
includes word processor 
40/80 Columncard VIC20 
CENTRONICS PRINTER INTERFACE 
for CBM64 & VIC20 
as above inc 1 6K Buffer 

FORREST DATA SERVICES 

(09) 339 5087 —P.O. Box 71, Palmyra WA 6157 


DEALERS - Let the universe 
know where you are! 

{f®[? 


CONTACT: 

WEBSTER MEDIA SALES (02) 331 4777 


THIS SIZE 

-$40 


C64 USERS 

★ EPROM PROGRAMMERS 

★ MAKE AUTO START CARTRIDGES 

★ Save & Load Program to EPROM 

★ Real world Interface 

★ 8 lines in 8 Relays out 

★ Anelog Joy sticks 

★ Dealer Inquiries welcome 


P.O. BOX 65 
RIVERSTONE 2765 
Ph: (02) 627 2510 


f^E Y ERTRONIX 

I- AAAAA__—JLAAAA_ _ — . 


SOLUTION TO: 

The Secret of Bastow Manor 

Fintd out how to get into the Treasure Room,...get the Gold 
...and escape from the Manor with it. Amaze your friends. For 
all the necessary instructions, lots of other notes, and plans of 
Old Man Bastow’s Manor, send $5.00 to 

C. Luckman - 98 Nimmo St., Middle Park Victoria 3206 


A DISCOUNT COMPUTER BOOKS 
B SECOND HAND S.F/FANTASY BOOKS 


Send 33c Stamp for lists of books available (specify AorB) 
P.D.S.H P.O. BOX 335 GLADESVILLE N.S.W. 2111 

WE ACCEPT CREDIT CARDS, BUY & SELL SECOND HAND 
SCIENCE FICTION AND FANTASY BOOKS 


' VV V OTHER MODELS WHERE INDICATED 



$ 10.00 

INCLUDES P&P 


ea 


DISK OFFER# 1 

MONAD -Vol 4 No 2 & 3 
NICE LISTER-Vol 4 No 2 
DEMO PROGRAMS of TOIL BUSINESS, 
VIDEO BASIC & PAINTPIC. 

DISK OFFER # 2 

BASAD - Vol 4 No 4 
FILEUSER - Vol 4 No 4 
FILEMAKER 

MUSIC SUITE 3 - Vol 4 No 5 
RASTER PROG. - Vol 4 No 5 
FAST-DISK-Vol 4 No 5 
SSORT-Vol 4 No 5 
FUZZY SORT - Vol 4 No 4 


OTHER MODELS WHERE INDICATED 

KIM BOOKS 

82 Alexander St., Crows Nest N.S.W. 2065 

CREDIT CARDS: MasterCard/Bankcard/Visa/AMEX 
Please Quote No., Expiry Date, User Signature 

DISK OFFER # 3 

TERM 64 - Vol 5 No 1 

HELPOUT-Vol 5 No 1 

MULTICOLOUR RECORDS - Vol 4 No 6 

MINUET IN G - Vol 4 No 6 

HOME LIBRARY (ALL MACHINES) - Vol 5.No 1 

DISPLAY PROGRAM - Vol 5 No 1 

MAPGEN - Vol 5 No 1 

DISK OFFER # 4 

EPROM LISTINGS (VIC, C64) - Issues 30, 31 
DIRECTORY 64 - Issue 30 
COMPACTION - Issue 30 
TREASURE QUEST - Issue 31 
DISPLAY PRINT - Issue 31 
COCKPIT - Issue 31 
POLAR GRAPHS - Issue 31 
KERNEL REV-03 - Issue 29 

PLUS OTHERS FROM ISSUES 29 - 31 
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MORE SNIPPETS 

Paul Blair 


SUPERBASE and EASY SCRIPT have 
become (Commodore) standards. Having 
been around for a while now, it was logical 
that improved versior-s should appear - to 
include a wider range of features, and 
correct one or two minor irritations (ho hum) 
that users have noticed. 

There is news of upgrades. We have not 
actually seen either of these upgrades, but 
overseas magazines are carrying details of 
what is happening, so we will bring the news 
to you. 

EASY SCRIPT has been overtaken by 
SUPERSCRIPT (getting confusing, all these 

.SCRIPT names!!). The advertising blurb 

Indicates some new features... 

Menu selection of commands or 
Select command by its first letter 
5 function calculator built in 
Cut and paste blocks of numbers 
Select printer type from a menu 
Selective Mailmerge feature 
Store commands on a key 
Word wrap on/off 

There are more variants, it seems. But the 
biggest change is that EASY SPELL has 
been built in to obviate the need to perform 
an individual/special load to check your 
spelling. That sounds nice. 

Haven’t seen It In the shops yet. Precision 
Software sell It for about 70 quid in the UK, 
with an upgrade (send your old disk back 
etc) for 40 quid. Given that there have been 
about a quarter of a million copies sold (and 
another 2 million shifted in mysterious ways) 
Precision could get rather busy. 


One writer has given a list of “would be nice” 
items still missing. Here’s the list: 

True proportional spacing 
Windows 
Undo command 
Spelling correction 
Non-destructive block move 
Sort column facility 
Built In indexer 
Telecommunicate features 

Make up your own mind about these. But for 
what it is at what it costs, SUPERSCRIPT 
appears to be an incredibly powerful 
package. 

If anyone has a copy, or any dealer is 
selling/trading up to SUPERSCRIPT, we’d 
be pleased to hear. 

A tip for EASY SCRIPT users. We have 
previously noted a problem with dropped 
letters from the first line of new paragraphs 
when editing with EASY SPELL. One reader 
has suggested a simple fix. 

Most of us leave a blank line between 
paragraphs. To do this, we press RETURN on 
a blank line and get a reversed left wedge 
(“<’’). The fix is - don’t. Press SHIFT and 
RETURN together, then go on typing. 

This creates the blank (very!!) line, and it is 
reported that files then edit without leaving 
out characters. 

After using EASY SPELL and keeping your 
text all intact, you can THEN go through and 
add the standard RETURNS to subdivide 
your text Into paragraphs. 


SUPERBASE V2 (Is the package marked 
V3??) is on sale in Australia. The first price I 
saw was $199, which Is now $149. 

The changes that we know about are: 

A new labels program 

- can now use all field types 

- can now use up to 4 items/line 

- can now use forced spaces for 
formatting 

- store label formats for later use 

- full menu and help screen support 
A new delete routine 

A new command 

- you can now export from a list 
Better disk space management 

A new utility program is provided. This may 
be an admission of past problems (as my 
mail tells me you too have the odd problem 
with SB). 

The utility programs loads from a BASIC 
environment. Its purpose is to permit 
splitting a database and copy its 
uncorrupted information and file definitions 
onto a formatted disk. It converts V1 files to 
V2 at the same time. 

It will also permit recovery of corrupted 
databases (hooray!!) files and records. It will 
not recover deleted records. 

A copy feature is included for sequential 
files up to 112 blocks long. 

We would welcome any further news/ 
comments/praise/gripes/questlons/lrlsh 
jokes about either packages. 

(C) Paul Blair 1985 r-i 


Beginners Corner: Poke Among This Lot 

Peter Davies 


The other day I wassearching fora particular 
POKE address that I couldn’t remember and 
while trying to find it among my collection of 
magazines I recorded all those that I found. 
They are listed below - if the list is useful to 
me it Is probably of use to others too. 

Warning - do not POKE around while your 
newly completed, unsaved masterpice Is in 
memory as you may lose it completely. Also 
reset all adresses to their default values 
before loading a program or it may crash. 

There are over 64,000 addresses that can 
be POKEd with values from 0 to 255. Many 
achieve nothing at all; those in this article 
represent a very small proportion of the 
remainder. 


SYS 64738 will give a cold start (the jus 
switched on state) but SYS 64767 will give ; 
cod start without changing the screei 
colour. (While thinking about SYS’s, SYJ 
65511 will close all open files.) 

53?ftn P^'^bably familiar with POKE 
POKE' 53 ?R'^^r border colour an( 

colour-r;:^®^’^ colour and th( 

POKE 64 R r f ^ frequently used one i; 
b46.C for setting text colour. 

eisily readablL 

214.Y-1;PR1NT:P0KE 21 1 X or 
OKE 21 1,X:POKE 214,Y;SYS 58732 
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Disabling one or more keys Is often asked 
about in readers’ letters; below are a few 
which are most commomly requested. 

POKE 649,0 disables the keyboard (10 re¬ 
enables) but don’t disable the keyboard in 
direct mode as you will not be able to type in 
the re- enabling poke ! 

POKE 657,128 disables the shifted 
Commodore key. 

POKE 808,251 disables the RUN/STOP 
key: POKE 808,232 disables the warm start 
RUN/STOP and RESTORE combination. 

POKE 775,168 will, among others, disable 
the LIST command while POKE 775,1 71 will 
cause a crash on executing LIST. 

POKE 819.246 and POKE 818,32 both 
disable the SAVE command. 

Has your HiRes masterpiece crashed? If so 

POKE 53272,PEEK(53272) AND 247:POKE 
53265.PEEK(53265) AND 223 

will enable the error message to be read. 
You have to type this in blind so type slowly 
and carefully. 

An invisible cursor can be perplexing; try 
POKE646.PEEK(53281). 

This sets the text colour to the screen colour. 

For programming, a number of useful pokes 
exist: 


POKE 19,64 before an INPUT and the 
question mark is not displayed. 

0 returns things to normal 

POKE 199,1 is the same as CTRL RVS ON 
and POKE 199,0 CTRL RVS OFF, POKE 
649,X sets the number of characters the 
keyboard buffer will hold; X must be =<10; 
put X=0 and see what happens when you try 
to use the keyboard 

While on the keyboard, POKE 198,0 will 
empty the keyboard buffer prior to using a 
GET and POKE 631,13 will put RETURN into 
the buffer for dynamic programming 
techniques. 

Other POKES of use are: 

POKE 650,255 makes all keys repeat but 
POKE 650,127 and no keys repeat (not even 
the cursor keys) 

POKE 56325,X where X can take values 
from 0 to 255 controls the cursor speed 

POKE 56324,28:POKE 56325,0 slows the 
LIST speed as does POKE 56325,X where 
values of X less than 58 speed up the listing 
and those greater progressively slow it. 

Finally, ever got a DEVICE NOT PRESENT 
error when you know it is ? The value a 
address 144 may have been changed. 

POKE 144,0 before taking any drastic steps. 

□ 











THE SUPERBASE PAGE 


Paul Blair 


Well, here goes again. There have been a multiple times more expensive) packages 
few new developments since the last on a Different Brand, SUPERBASE Is a very 
column, so let’s look at the new news first, flexible system. 


By sending an original diskette of SUPER¬ 
BASE V1 back to Precision Software (6 Park 
Terrace, Worcester Park, Surrey KT4 7JZ, 
England), I have been able to update to 
SUPERBASE V2.02. The changeover cost 
me ten pounds (about twenty dollars) plus 
some mailing charges. 

Worthy of note was the speed of delivery. I 
posted off my request one Friday lunchtime, 
and had the return disk the following 
Monday week. From the UK!! Full marks to 
Precision, Speed Mailers of the Year. And a 
note of appreciation to the postal people, 
too, who usually get only complaints. The 
service was great. 

The diskette Is double sided-the front is your 
prime copy, the reverse is your backup copy. 
On the same diskette IsSUPERBASE forthe 
Plus 4 (remember them?), so Its a bit of a 
bonus if you happen to own one of each 
computer, which probably won’t be many of 
you. 

I’ll spend a little time with V2.02 before 
telling you more. At first sight, there do not 
seem to many differences (the manual 
additions supplied with the upgrade run to 6 
typed pages). The principal claimed differ¬ 
ences between versions 1 and 2 are these: 

• a new labels program that permits 
multiple choices forfield selection, use of 
forced spaces, multiple copies, and a 
method of storing label formats for later 
use. 


• a delete routine for disk housekeeping. 
You get to this by using EXECUTE then 
typing DELETE. If you use this for a total 
purge, you must be careful to delete not 
only the records, but the file definition 
from the directory. If you don’t, and 
decide to re-use the old file name, 
SUPERBASE will pick up the old 
FORMAT definition from the disk, and 
apply it to your new file. 

• export from a list is now possible. 


• disk space management has been 
improved. This Is critical when your disk is 
nearly full. V2.02 takes steps to protect 
you from the trauma of a part-written 
record. 


• a new utility program. This Is accessed 
from Basic, and gives you the power (!) to 
solit a database and copy its parameters 
onto a formatted disk. In fact, copy seems 
to be the main function of the utility. Oh, 
and vou may (not always ‘can’) recover a 
corrupted database. That last joy should 
never be your lot, and, as I have noted 
before in these pages, I wonder why 
Precision should worry? It should never 
happen, should it. 

o niiirk nummary. In use, there seems 

Sasi bu, I do lik. ,he fact 

at ,ba cbanga is “t/Vlp 

offer better security for the bUHhH 

\SE system. It's easy to be critical, but after 

Hng some of the more complex (and a 


If you don’t want to upgrade to V2.02, might I 
suggest you check which revision of Version 
1 you are using. There were at least two 
versions sold in Australia- V1 .OE and V1 .OS. 
The version comes up on the prompt line at 
the top of each main menu. As you might 
expect. Version S is the more up-to-date and 
reliable of the two. If you have Version E, I 
suggest you try to get a copy of Version S 
(legally, of course). 

Some snippets of news from Precision. They 
tell me there Is a book about SB due out 
around now. That’s all I know, but I will try to 
get hold of a copy, and pass on to you some 
Information about price and availability. 
Maybe someone has seen it already and 
knows a bit more about It-and could write so 
we can all share the news. 

Next. With the C128 not faraway (this is late 
October, and still no sign...) Precision have 
not been Idle. As they have done for the 
larger Commodore computers (the 8296 
business computer springs to mind) they 
intend to package SUPERBASE and 
SUPERSCRIPT (the successor to Easy 
Script) into one co-resident package. The 
8296 version Is named SUPEROFFICE, and 
permits simple transfer of Information 
between word processor and database. 
With the ability to define macros and transfer 
them between functions, plus record access 
in about one quarter of a second with the 
1571 disk drive, the old bug-bear of slowly 
grinding through a FIND could be a thing of 
the past. 

Cricket is a pleasant game, and I can ‘Norm’ 
it for hours. But it was cricket that led me to a 
problem with SUPERBASE that I had not 
come across before. If you’re not ahead of 
me by now, I am referring to the Sloppy Sort 
routine built Into SB. 

Out in the northern part of Canberra, the 
cricket lovers are pretty dynamic - so 
dynamic that one bright young lad took it on 
himself to computerise (dreadful word, that!) 
the area membership records. Between 
overs, he set up a nice little file to records 
names, addresses and age groups for the 
junior club members. He did it very nicely, 
too. Each member was assigned a registration 
number, and the ‘Under* something age 
group was included with each record. 

The key field was assigned to ‘Surname’, so 
the system logically stored member details 
in alphabetical order. Because several 
members of some families were involved, 
duplicate keys were permitted. Remember 
that - it’s important. 

If you have paddled through the SB Manual, 
you will have come across page T-48, and its 
reference to sorting. The syntax is easy 
enough: 

MENU 2/SORT (F4)/all on () to “xxxx” 

where the round brackets are square ones 
(it’s our typesetter, not me) and enclose the 
field name that you want as the target of the 


sorting routine, and you want the resulting 
output written to “xxxx” for later use. So we 
set this all up, with “rego-no” as the Item in 
square round brackets, and went off for a 
cup of coffee. 

Eventually SB finished its job, the coffee pot 
was dry, so I set up a little program to show 
me how it had gone, using rego-no and 
surname to show me how nice it all was. It 
had gone, no mistake about that. But the 
result was not useable. 

This is what I got: 

001 Haslam 
002 Misfeld 
and so on to.... 

005 Caynoto 
287 Mitchell 
007 Schlesinger 
048 Gee 

009 Chamberlain.... 

That’s only a short bit of it, but where did 287 
and 048 come from? And where were 006 
and 008? 

Some little while later I found them. Guess 
what? Rego-no 006 had the surname 
“Mitchell”, and 008 was “Gee”. They were 
genuine records, as were 287 and 048. But 
what went wrong? 

The clue lies on page R-55 of the manual, 
where it says “Do not specify the key as a 
field to sort on, as It Is automatically included 
at the end of the list”. Nice touch, you think? 
Maybe. But I don’t think so. 

The explanation is rather long, so I’ll precis it 
down a bit. It has to do with permission for 
duplicate keys, and the order In which SB 
stores records that have duplicate keys. It 
has to do with the order of entry. If you enter 
a record for JOE BLOGGS tonight, and one 
for WILF BLOGGS tomorrow night, Wilf will 
be stored AHEAD of Joe. FIND will work OK, 
and you may locate both records. But SORT 
is different, and will retain the details of Wilf 
as the current record during the sort, and 
ignore Joe till later. 

Well, I think this is something of a drawback. 
But unless I rewrite SB, I have to learn to live 
with this fact. What can I do? Refuse to 
accept duplicate keys? Good idea - not 
always practical, but the most simple way of 
getting integrity In the sorting process. Any 
other ways? 

Hugh de Glanville, who edits the SB page in 
the English ICPUG magazine, has some 
suggestions, and I bring them to you with his 
blessing. 

The first technique is not to permit duplicate 
keys, but give the impression that you are 
Instead of a field for “rego-no” and 
“surname”, append the rego-no to the 
surname. If Wilf was 1 23 and Joe was 456 
the key field would be BLOGGS123 for Wilf’ 
and BLOGGS456 for Joe. Then you could 
write a program like this: 

10 select from “xxxx”:eol menu 
20 k$=(surname):k=len(k$)-3 
30 n$=left$(k$,k) 

40 display n$ 

50 goto 10 
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tape auto run 

This program is a tape auto-run. It is designed for BASIC 
programs, but it could easily be modified for machine code if 
so desired (if anyone does, please tell us and we’ll pass it on). 

Instructions are at the start of the program. 

100 REM; TAPE AUTO-RUN’BNCY 
110 REM: FOR C64 BASIC PROGRAMS’BUQC 
120 REM: D M BALE AN 5/85'BNF A 
130 REM:’BBAX 

140 PRINTCHR$(147):PRINT:PR1NT” ***** 

C-64 TAPE AUTO-RUN *****”’EHWK 
150 PRINT” FOR BASIC PROGRAMS ONLY”’BADI 
160 CLR:F0RA=49152T049318:READB:P0KEA,B:T=T-I-B:NEXT 
’JXLL 

170 IFT<>20358THENPRINT”DATA ERROR”:END’GHMK 
180 PRINT:PRINT’TO USE :-”;PRINT’DCYH 
190 PRINT” WHEN YOU HAVE RUN THIS PROGRAM,”’BAEN 
200 PRINT” LOAD OR TYPE IN THE PROGRAM TO BE MADE” 
’BAUG 

210 PRINT” SELF-RUNNING WHEN LOADED FROM TAPE.” 

’BAEH 

220 PRINT;PRINT” IN THE DIRECT MODE TYPE :-’”CBPG 
230 PRINT” SYS49152”CHR$(34)”FILENAME”CHR$(34)” 
|RVSlRETURN(OFF]”’DIEK 

240 PRINT” (THIS SAVES THE PROGRAM TO TAPE)”’BASJ 
250 PRINT-.PRINT” ON RELOADING, THE SCREEN IS CLEARED,” 
’CBCM 

260 PRINT” AND RUN/STOP/RESTORE IS DISABLED.’”BAAL 
270 PRINT” THE JIFFY CLOCK FUNCTIONS NORMALLY’”BAQN 
280 PRINT" AND THE PROGRAM AUTO-STARTS”;’BBAM 
290 :’ABHF 


SUPERBASE - CONTINUED 

Don’t forget the round square (or was it 
square round?) brackets around surname" 
are special. 

A bit awkward, but it works. This sort of string 
handling routine can be used in many and 
varied forms (rather like the example we 
used last year when discussing relative files 
and ISAM). 

Maybe you have struck this problem too, and 
solved it in a way that we all could share. If 
you have, drop me a line at 35 Calder 
Crescent, Holder ACT 2611, or leave a 
message on VIATEL 628835840. Or maybe 
you have found/solved something else that 
would be of interest? Same deal - we’re 
always glad of feedback. 

Next issue - Version 2.02 and the hidden 
commands the manual doesn’t mention. 

® Paul Blair 1985 




300 DATA 165, 43,133,251,165, 44,133,252’BEDD 
310 DATA 165, 45,133,253,165, 46,133,254’BELE 
320 DATA 169,189,133, 43,141, 2, 3,169’BBUE 
330 DATA 2,133, 44,141, 3, 3,169, 4’BWIE 
340 DATA 133, 45,169, 3,133, 46,160, 66’BBQG 
350 DATA 185,100,192,153,189, 2,136, 16’BDOH 
360 DATA 247, 32,212,225,169, 3,133,185’BDNI 
370 DATA 32, 89,225,165,251,133, 43,165’BDSJ 
380 DATA 252,133, 44,165,253,133, 45,165’BEHL 
390 DATA 254,133, 46,169,131,141, 2, 3’BBFL 
400 DATA 169,164,141, 3, 3,169, 1,170’BALD 
410 DATA 168, 32,186,255,169, 0, 32,189’BCEE 
420 DATA 255, 76, 89,225,169,131,141, 2’BCXF 
430 DATA 3,169,164,141, 3, 3,169,147’BARG 
440 DATA 32,210,255,169,230,141, 41, 3’BCXH 
450 DATA 169,142,141, 40, 3,169, 0,133’BBEI 
460 DATA 157, 32,213,255,169, 1,170,168’BDRJ 
470 DATA 32,186,255,169, 0,170,168, 32’BCTK 
480 DATA 189,255, 32,213,255,134, 45,132’BEJM 
490 DATA 46,134, 47,132, 48,134, 49,132’BCRM 
500 DATA 50, 32, 89,166, 76,174,167’BXKE 

delete/oid 

64 

This routine provides a shorthand method for recovering a 
program that has been NEWed, and a means of deleting 
unwanted lines in a block. This saves the tedium of entering 
a blank line number, and pressing RETURN for each line. 

The keyboard routines are presented at the head of the 
program. “D” uses the same syntax as LIST, which will make 
it easy to remember. 

If you are not using HELPOUT, omit the last 5 characters 
(’XXXX) on each line. 

100 REM; DELETE/OLD ROUTINE’BSAA 
110 REM: FOR C64 DIRECT MODE’BRKB 
120 REM: D M BALEAN 5/85’BNFA 
130 REM:’BBAX 

140 PRINTCHR$(147):PRINT” DELETE/OLD”:PRINT’EHLH 
150 CLR:FORA=49152T049331 :READB:POKEA,B:C=C+B:NEXT 
’JXWK 

160 IFC<>19761THENPRINT”DATA ERROR”:END’GHBJ 

170 PRINT”DELETE:-’”BALE 

180 PRINT” D = DELETE ALL’”BARI 

190 PRINT” D LI = DELETE LI ONLY”’BANK 

200 PRINT” D L1-L2 = DELETE LI TO L2”’BAPC 

210 PRINT” D LI- = DELETE LI TO END”’BAQD 

220 PRINT” D -L2 = DELETE UP TO L2’”BARE 

230 PRINT:PRINT”OLD:-”’CBHB 

240 PRINT” O = RECOVER NEWED OR DELETED PROGRAM” 
’BAXK 

250 PRINT” IF STILL IN MEMORY”’BADH 
260 SYS49152;NEW’CGBE 

270 DATA 169, 11,141. 2, 3,169,192,141, 3, 3, 96, 32’BLLK 
280 DATA 96,165,134,122,134,251,132,123,132,252, 32,115’BUMN 
290 DATA 0,240,240,176, 3, 76,144,164,201, 79,208, 12’BPCN 
300 DATA 32,115, 0,240,115,166,251,164,252, 76,134,164’BSAF 
310 DATA 201, 68,208,245, 32,115, 0,208, 6, 32, 68,166’BOJG 
320 DATA 76, 11,192,166, 43,164,44,176, 12, 32,107,169’BQSH 
330 DATA 32, 19,166,144,220,166, 95,164, 96,138, 72,152’BRCI 
340 DATA 72, 32,121, 0,240, 36,201, 45,208, 27, 32,115’BORI 
350 DATA 0, 56,165, 45,233, 2,170,164, 46,176, 1,136’BNOJ 
360 DATA 32,121, 0,240, 22, 32,107,169, 32, 19,166,176’BPXL 
370 DATA 5,104,104, 76, 41,192,160, 0,177, 95,170,200’BPYM 
380 DATA 177, 95,168,104,133, 96,104,133, 95,152,160, I’BRRN 
390 DATA 145, 95,136,138,145, 95,140, 0, 2, 76,169,164’BPAO 
400 DATA 169,255,160, 1,145, 43, 32, 51,165, 24,165, 34’BPJG 
410 DATA 105, 2,133, 45,165, 35, 32, 85,166, 76,116,164’BPPH 
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Random HsTablesB4 

A. Wiggins 


Random ★ Tables will ask answers to tables from 1 *1 to 12*12. 

0 REM A WIGGINS MELBOURNE VIC.’BVKE 

1 PRINT “[CLR,DOWN]”: PRINT TAB(10)“RANPOM TIMES 
TABLES”: PRINT ‘EFUT 

2 PRINT TAB(7y‘PLEASE TURN UP THE SOUND.”’CCMI 

3 PRINT • PRINT TAB(7)“PRESS RETURN WHEN READY’”DDVJ 

4 Q$=“”: GET Q$: IF Q$<> CHR$(13) THEN 4’HNHJ 

5 GOSUB 100: POKE 198,0’CJLF 

6 PRINT ‘TCLR,DOWN2]HOW MANY QUESTIONS”: 

PRINT “WOULD YOU LIKE TO ANSWER ?.’”CBMS 

7 Z=0: INPUT Z: IF Z<=0 THEN PRINT “[UP2]”: GOTO 7TJCN 
20 A=INT (12^ (l))+rFJGD 

30 B=INT (12^ RND (1))+1: PRINT : PRINT ‘HLXF 

PRINT “TYPE IN THE ANSWER TO QUESTION “;AN+1’CEMK 

32 II^=>1 THEN PRINT “IF YOU HAVE HAD ENOUGH TYPE IN” 
’FDAM 

33 IF AN=>1 THEN PRINT “-1 AS YOUR ANSWER TO 

QUESTION”; AN+1’GHSP 

34 PRINT ‘BACD 

38 PWNT T^W'QUESTION (”AN+1“)”“ OF (”Z“)”: PRINT : 
PRINT ‘FIJO 

39 PRINT TAB(10)A“*”B“=[SPACE2]”;:C$=“”: INPUT C$: 
r=VALf CSV IF C=0 THEN PRINT “[UP2]”; GOTO 39’LYGV 

4, c^AND AN<1 THEN PRINT “[UP2]”: GOTO 39TIRI 

42 IF C=-l AND AN=>1 THEN GOTO 60’IHUI 

43 PRINT “[CLR]”’BATE 

44 PRINT ‘BACE 

45 PRINT ‘BACF 

46 AN=AN+1’CFUI 

50 IF C=A*B THEN PRINT “YOU GOT IT RIGHT ”;R=R+1: 

PRINT A“4*”B“=”;A*B: GOSUB 2000’KSEQ 

55 IF C<>A*B THEN PRINT “WRONG”;W=W+l: 

PRINT A“*”B“=”;A*B;“,N0T ”C: GOSUB lOOO’LUYV 

56 IF AN=>Z THEN 60’EFCK 

57 GOTO 20’BCII 

60 PRINT “|DOWN2]QUESTIONS ANSWERED ”;AN’BDYI 

65 PRINT “[DOWNIQUESTIONS RIGHT ”;R’BCFM 

66 PRINT “[DOWNIQUESTIONS WRONG ”;W’BCAN 

67 R$=STR$(R/AN*100); REM RIGHT’FQDQ 

58 W$=STR$(W/AN*100); REM WRONG’FQDR 

70 PRINT “[DOWN]” MID$(R$,1,7)“ % RIGHT”’CICH 

71 PRINT “[DOWN]” MID$(W$,1,7)“ % WRONG”’CIWI 

72 PRINT : PRINT ‘CBHG 

73 IF R/AN*100<=50 THEN PRINT “ *********TRY A LITTLE 
HARDER*Hs**4!**4!*’”HIKU 

74 IF R/AN*100>50 AND R/AN*100<=75 THEN 

PRINT “[SPACE7]*********NOT BAD*********’”LQLX 

75 IF R/AN*100>75 AND R/AN*100<=85 THEN PRINT 
“[SPACE6]*********VERY GOOD*»»4:*****”’LQQA 

76 IF R/AN*100>85 AND R/AN*100<100 THEN PRINT 
“[SPACE6]*********EXCELLENT*********’”KRDA 

77 IF R/AN*100=100 THEN PRINT “[SPACE2]s(!4:******sl!YOU 
DON’T NEED ME*********”’GIWX 

Q5 PRINT; PRINT TAB(3)“DO YOU WISH TO DO SOME MORE Y/N 

[SPACE2]?.”’DDEV 

, Qgx z$: IF Z$<>“Y” AND Z$<>“N” THEN 96’JMCU 

97 IF Z$=“Y” THEN CLR : GOSUB 100: GOTO 6’GISR 

?n0^PlSNT^?CLR.DOWN]”: PRINT TAB(17)“MUSIC”: 

°° p^NT TAB(10)”(BY IlM BUTTERFIELD)”’FIIH 

\io pSkE vl+f’i poke V2+2,0’ELNE 
150 PuKE y i+i.^ V2+2,36’ENNG 

15? KkI V?tl:i8: POKE V3+2.170’EOMH 
2m POKE^VlIe- POKE V2,32: POKE V3,16’DRKB 

? SadI‘iFS= 0GOTO 290^EHWA 
Ton DCATO YI Y1 X2,Y2,X3,Y4 BK1.C 

230 IF XI ™en’pOKE H!,X1: POKE L1,Y1: POKE V1,17’FTLG 


240 IF X2 THEN POKE H2,X2: POKE L2,Y2: POKE V2,33’FTPH 

250 IF X3 THEN POKE H3.X3: POKE L3,Y3: POKE V3,17’FTXI 

260 T=T+S’CDLE 

270 IF T>TI GOTO 270’DGDG 

280 GOTO 200’BDBF 

290 FOR J=L1 TO 54296: POKE 1,0: NEXT I’FOLL 

295 RETURN ‘BAQK 

300 DATA 20,34,75,21,154,8,147’BVTB 

310 DATA 20,34,75,25,177,0,0’BTMC 

320 DATA 20,38,126,28,214,6,108’BWRD 

330 DATA 20,43,52,25,177,0,0’BTHE 

340 DATA 20,34,75,21,154,8,147’BVTF 

350 DATA 20,43,180,25,177,0,0’BUHG 

360 DATA 20,38,126,22,227,8,23’BVPH 

370 DATA 20,0,0,25,177,0,0’BRDH 

400 DATA 20,34,75,21,154,8,147’BVTC 

410 DATA 20,34,75,25,177,0,0’BTMD 

420 DATA 20,38,126,28,214,6,108’BWRE 

430 DATA 20,43,52,25,177,0,0’BTHF 

440 DATA 20,34,75,21,154,8,147’BVTG 

450 DATA 20,0,0,25,177,0,0’BRDG 

460 DATA 20,32,94,22,227,8,23’BUPI 

470 DATA 20,0,0,19,63,6,108 

500 DATA 20,34,75,21,154,8,147’BVTD 

510 DATA 20,34,75,25,177,0,0’BTME 

520 DATA 20,38,126,21,154,7,163’BWPF 

530 DATA 20,43,52,17,37,0,0’BSLF 

540 DATA 20,45,198,28,214,7,53’BVBH 

550 DATA 20,43,52,34,75,0,0’BSMH 

560 DATA 20,38,116,28,214,0,206’BWII 

570 DATA 20,34,75,22,227,0,0’BTFK 

600 DATA 20,32,94,25,177,6,108’BVWE 

610 DATA 20,25,177,22,227,0,0’BUGF 

620 DATA 20,28,214,21,154,7,53’BVMG 

630 DATA 20,32,94,19,63,8,23’BTVH 

640 DATA 20,34,75,21,154,8,147’BVTI 

650 DATA 20,0,0,25,177,6,108’BTII 

660 DATA 20,34,75,21,154,4,73’BUPK 

670 DATA 20,0,0,0,0,0,0’BONK 

700 DATA O’BBDB 

1000 REM ** SOUND SUBROUTINE **’BTHX 

1020 S=54272’BG1W 

1030 POKE S+24,15’C GO X 

1040 POKE S+5,50’CFOY 

1045 FOR X=1 TO 50’DEVE 

1050 POKE S+1, RND (X)*32+50’FKQD 

1060 POKE S+4,17’CFQB 

1070 FOR 1=1 TO 10: NEXT ‘EFID 

1080 POKE S+4,16’CFPD 

1090 NEXT X’BBRC 

1091 FOR X=1 TO 24: POKE 54272+X,0: NEXT ‘GOFJ 

1092 RETURN ‘BAQE 

2000 REM ** SOUND SUBROUTINE **’BTHY 

2010 FOR Q=1 TO lO’DEKW 

2020 S=54272’BGJX 

2030 POKE S+1,20’CFHY 

2040 POKE S+5,9’CEUA 

2050 POKE S+6,9’CEVB 

2060 POKE S+24,15’C GO C 

2070 POKE S+4,17’CFQD 

2075 FOR X=1 TO 20: NEXT X’EGNI 

2080 FOR X=1 TO 20: NEXT X’EGNF 

2090 POKE S+4,16’CFPF 

2094 FOR X=0 TO 10: NEXT : NEXT Q’FHLL 

2095 FOR X=1 TO 24: POKE 54272+X.O: NEXT ‘GOFO 
2100 RETURN ‘BAQU 
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BOOKS & THINGS 


CONTINUED FROM PAGE 27 


TRAIN DISPATCHER CAULDRON 


Title: Train Dispatcher 
Tape/Disk: C-64, Vic20 
Authors: R.W. Brew & T.B. Levine 
Publisher Signal Computer 
Consultants - P.O. Box 18222 
Pitsburg PA 15236, U.S.A. 

Price: $29.95 American (inc.P&P) 
Availability: Direct from publishers 
Reviewed by: T. Steadman 

GENERAL DESCRIPTION 
A game that simulates control of 
railroad operations for a 8 hour 
shift, in control of 150 miles of 
territory. You are the dispatcher in 
the central control traffic office 
and have to move up to 12 trains 
by positioning points clearing 
signals ahead of the trains. There 
are 5 levels from visitor to 
trainmaster. You have the following 
colour displays to help you: 
Overview, 20 zones. Train sheets, 
block permits. 

GOOD POINTS 

The colour display are easy to read 
and well set out, keyboard overlay 
makes operation easy, sound 
used to tell you when train moves 
to new section and when comma¬ 
nds worked. The Manual is set out 
well and easy to read with a 
coloured reference section in the 
middle. Additional information on 
mileages, playing level differences 
and scoring is at the rear of the 
book. Operation is very realistic. 

bad points 

Music has clicks at the end of 
notes. While on the zone display if 
the train moves to a new section 
the train display is updated but the 
train number above the old 
section is not deleted. I personally 
do not like the way the function 
keys are used and there is no high 
score feature. Also the keyboard 
overlay will not fit SX64. 

SUMMARY 

This game has been well thought 
out except for the minor flaws 
noted above, for railroaders, rail¬ 
road modellers, budding railroad 
people and people who want to 
test there mind and reflexes at the 
hme this is for you. Yes, I do 
think it is good value for money. 


For the Commodore 64 

Reviewed by: Michael Spiterl 

Cassette: R.R.P. $20.00 
Publisher Melbourne House 

Cauldron is a new arcade/adven¬ 
ture gamefrom Melbourne House. 

Life as a witch isn’t easy, you know, 
flying around the planet collecting 
keys. Those darn spooks, whales, 
plants(!), and flying things sure 
drive me up the broomstick!! 

That is what the player must do in 
the first level of this game, here we 
have a scramble type game with 
very impressive graphics. Trees, 
oceans, doors, spooks($#&%) all 
look very realistic. Melbourne 
House have used realistic 3D 
graphics to make the first level a 
very exciting game. 

I had problems first controlling the 
witch, but soon picked it up. The 
witch must collect 4 coloured keys 
from around the world that open 
the exit to the underworld where 
more nasties and more levels 
exist. In the underworld lie ingred¬ 
ients that are required to make a 
spell to get rid of a pumpkin that is 
pestering thecountry-Goody,the 
witch is a good witch. 

The graphics In the next levels are 
just as good as the first, and the 
game is just as hard. You have 9 
hags to play with (pardon the 
expression), when they all run out 
- game over. Underground we 
have a very difficult platform game 
and a unique game that defies 
description. I was very impressed 
with the graphics, sound and 
animation. The program is well 
packaged with interesting docu¬ 
mentation. The game also loads in 
under 3 minutes using the 
PAVLODA loader. This is definitely 
the best arcade game Melbourne 
House has to offer. I believe they 
have a winner with Cauldron. At 
only $20 It has to be excellent 
value for money. Ask for a 
demonstration at your local 
computer store - I’m sure you’ll be 
impressed. 

From Melbourne House 
Price: $20 on turbo cassette. 


GRAPHICS ANDSOUND 
ON THE COMMODORE 
64 


Publisher: Prentice-Hall Australia 
Author: Greg Perry 
Reviewed by: Peter Davies 

I’ve always been somewhat con¬ 
fused about the procedures to 
follow when using the SID sound 
synthesizer chip and the VIC II 
video controller chip used in the 
Commodore 64. If you have too 
then there is help at hand at a 



reasonable price in the form of 
Greg Perry’s excellent book 
‘Graphics and Sound on the 
Commodore 64’. 

The book follows the well proven 
adage that practice makes perfect 
and you will find a continuous 
stream of examples and exercises 
to assist you In coming to terms 
with the 64’s powerful graphics 
and sound capabilities. You soon 
get the feeling that you’ve seen 
this sort of thing before (high 
school maybe?) but It proves to be 
an excellent way to learn. 

The book is also crammed full of 
technical information for those so 
minded and yet I feel that even 
beginners should have little diffi¬ 
culty in understanding most of it. 

The first chapter includes a brief 
explanation on how to use the 
book, a guide to the conventions 
used In entering programs listed in 
the bookand an explanation of the 
binary number system so vital 
when PEEKing and POKEing 
about the 64. 

The second chapter deals with the 
generation of simple colour and 
graphics using the 64’s block 
characters available from the 
keyboard. The techniques of 
handling colourand screen memory 
are explained and this section of 
the book culminates in the design 
and implimentation of a fairly 
complex maze program. 

Chapter 3 is where the complicated 
stuff begins and this Is where you 
come to realise the value of Greg’s 
unique approach. There are some 
good examples of howtogenerate 
programmable characters and 
there is also an excellent utility for 
creating data statements from any 
section of RAM so that they can be 
used in your own program. The 
chapter finally finishes up with an 
explanation of how to program 
multicolour characters. 

Chapter 4 launches into the 
fascinating world of high resolution 
graphics and again there are 
plenty of BASIC examples to show 
you how its all done. There is even 
a BASIC program to generate 
some machine code routines to 
assist in speeding up the graphics 
on the 64. 

Chapter 5 explains the procedure 
required to use the 8 sprite 
available on the 64 and there are 
some good examples of how to 
generate sprite shapes easily 
from within a BASIC program. 
There is also an explanation of 
how to move sprites around the 
screen and how to detect collisions 
between sprites, the background 
and other sprites. 

Chapter 6 onwards deals with the 
use of the SID chip. The nature of 
sound is explained and a descri¬ 
ption of the basic operation of the 
SID is given. Then the book 
describes the individual SID regi¬ 


sters and how to program them 
with plenty of examples and 
exercizes to keep you Interested. I 
liked the explanation of program¬ 
ming multiple voice music and 
there are 2 music utilities provided 
to assist you in programming your 
own music. 

The appendices consist of a 
section describing the operation 
of banked memory in the 64, a 
section on programming the 64’s 
joysticks, a description of a 
smooth scrolling routine, a table of 
even-tempered notes and last but 
not least a description of programs 
that can be found on the disc that 
you may purchase with the book (I 
didn’t have this). 



Overall the book is well set out and 
easy to follow, however I do have 
two criticisms. Most of the program 
examples in the book are reaso¬ 
nably short and can be easily 
understood, however some of the 
larger examples primarily the 
Maze program on page 44 could 
do with some program structure to 
make them more readable and 
easier to understand. A central 
control section with GOSUBs 
calling subroutines which perform 
specific tasks makes a program 
much easier to understand (espe‘ 
daily for a novice) as well as 
making it easier to debug and 
modify. The other criticism centres 
around the lack of memory 
diagrams to assist in explain mg 

the bank selection features fo 

VIC II chip. You know ‘he om 
cliche, a pictures worth a thousan 
words. 

At $15 95 for the book and an 

".rajmoocorth.diKt^M* 

dore 64. O 














COMMODORE DOCTOR 

by Dr. Greg Perry 


The aim of this column is to help our 
readers with any problems they have 
with CBM/PETs, VICs, C64s, Plus. 
4/C16 and associated Commodore 
equipment. Send us your queries and 
we will do our best to provide an 
Intelligent answer. 

Alternatively, if you don’t have any 
Immediate problems but have dis¬ 
covered some smart tricks In BASIC or 
machine code, or even better ways to 
program some of our answers/articles 
we would be interested to hear from 
you. You never know the routine may 
even win you a prize for the best item 
published each month. Also drop us a 
line if you would like a specific topic 
covered In the magazine. 

Write to 

Commodore Doctor 

The Commodore Magazine 

82 Alexander Street 

Crows Nest, NSW 2065. 

OR MAIL them to me on VIATEL 
738329500 

Please ensure that any program 
listings are in NICE LISTER format 
and Include a REM statement with 
your name and address. (By the time it 
passes through several hands and 
reaches me sometimes bits of the 
letter can have been mislayed. If not. 
I’m also likely to lose It!) Machine code 
programs should be in assembler 
format and not directly in hex. I 
apologise for the fact that, in general, 
letters can not be answered personally. 
Also, because of printing schedules 
and other^ factors, some questions 
may not appear until two months after 
they are received. 


COMMENT 


I would like wish all readers the best for the 
festive season and to thank all those who have 
supported me over the past year. This column 
has been quite interesting to write, and I have 
enjoyed the many favourable comments and 
amusing feedback received. 

Questions and Answers. 


Q Our school has a network of C64s, linked 
bv a VICSwitch together with an EPSON RX- 
80 printer and an Epson C064 Interface 
rard for the C64. Everything works perfectly 
evceot that we have not been successful in 
nettinq a LOGO graphics dump from the 
^R4 Though offering advice, neither 

commodore nor their their agen^^ 

X" anf'J. - “ “■> ‘■°°° 

dumps. 

Are you familiar with any procedure to dump 
LOGO araphics (including expansion options) 
o?to th^EPSOM RX-80? Or, do you now of 
anyone who would be in a position to supply 
the needed information. 


S McKinney 

Campbellfield Primary School 
Augusta Avenue 
Campbellfield Vic 3061 


A. As faras I can ascertain you should be having 
no problems provided you set up the LOGO 
program for use with a 1525/801 type printer. 
The procedure Is discussed In the manual as far 
as I remember, however at this point in time I 
cannot lay my hands on my manual. I have 
included your full address in case others may 
have any further comment'on this problem. If 
this doesn’t work please drop me another line 
and we will try to look into the matter in more 
depth. 

Q. Is there a way you can store programs 
(games) from cassette to disk? I have a C64 
and a 1541 drive and what I would like to do 
is store the game ELITE from cassette to 
disk. How would I go about it? (The reason 
for storing onto disk is for backup only.) 

Also I have a VZ200 printer plotter(4 colour) 
which uses a centronics interface input. Is 
there a circuit that I can interface the C64 
with the VZ200? 

Joseph Tiziano 
Fairy Meadow, NSW 

A. Unfortunately, there is no simple, if even 
possible, way to transfer commercial cassette 
based games from tape to disk. Most of the 
latest turbo protection systems involve the 
loading of several parts of the program into 
different memory locations as well as an auto 
run. Without breaking the protection system 
(which Is illegal in any case), it is not possible to 
obtain a ‘clear* copy of the program so as to save 
it onto a disk. 

For you VZ200 printer plotter, the easiest way 
would be to purchase one of the standard 
Centronics Interfaces widely available. However 
this will be somewhat expensive. The alternative 
is to make yourself up a centronics cable for the 
user port of the C64. Since the user port has all 
the lines for a parallel centronics connection it 
involves only two plugs, cable, and a bit of 
soldering. As far software to drive the user 
port/centronics output, there Is no need to 
reinvent the wheel since a nice set of ‘wedges’ 
are available from the ACT Commodore User 
Group. Drop them a line c/o PO Box 599, 
BELCONNEN, ACT 2616. They can also supply 
a wiring diagram for the cable! 

Competitions. 

Competition 2 

I have had quite a range of entries for this one. 
Still(!) nobody has solved it. 

The Problem: Two computer experts, who live 
on country properties, are having a quiet drink 
in a country pub. Expert ‘A’ owns a rectangular 
property which is totally enclosed within a 23 by 
23 kilometre square. 

Expert ‘B’ knows the area of the property and 
that the sides are whole numbers (integers), but 
does not know the dimensions. He (’B’) asks if 
the breadth of the property is greater than half 
the length. Expert ‘A’ answers. (We are not 
privilege to rural conversation, but we know the 
answer was either yes or no.) On hearing the 
answer, expert ‘B’ can now calculate the 
dimensions of the property. A farmer has been 
quietly listening to the conversation, and, 
although he did not previously know the area of 
the property, on hearing both the question and 
answer, thinks for a while, and then, to their 
astonishment, tells the computer people what 
the area and dimensions of the property are. 


(What happens to him after that we won’t 
discuss.) 

That’s the problem. What Is the area and 
dimensions of the property? 

Some of this months’ entries were quite 
amusing. Many answers were expressed in 
supremely confident terms, but most were way 
off the mark. One reader even suggested that 
the computer experts had been at the pub for 
too long (never!) and were in fact quite beyond 
reason! Another reported that he came up with 
a program which “.. ran for 15 minutes and didn’t 
help me a bit!” Yet another commented ”Do you 
actually know just how many different sized 
properties could fit Into a 23 km squared 
boundary! I seem to understand it but lord 
knows how long It would take to calculate.” 

I assure you that there Is a specific logical 
answertothe problem. I actually sat down for an 
hour or so and double checked the solution and 
there really is a valid answer. 

Most people are totally missing the point. 
Somehow you must find a rectangle which can 
be PROVED to be ‘unique’ by the L>B'*- 
relationship with respect to all other possible 
rectangles which may be enclosed within the 
23x23 square. There is no guesswork. 

You must, therefore, work out ALL the possible 
rectangles (including squares) which can be 
contained within the area 23x23. Or, more 
correctly, a list of all the different areas and the 
possible dimensions. Any given area usually 
has more that one possible set of factors. For 
example, the area of 30 has factors 3x10, 30x1 
and 5x6. (Rememberthat it is possibleto havea 
length greater than 23 by laying the rectangle 
along the diagonal.) 

Then, compare the way In which the dimensions 
relate to L>2*B. For example, the area 30 has 
two sets of dimensions where L>2*B and one 
where L<2*B. In this case, the answer would 
have to be 30x1 since there is no way to chose 
between the other two. (That’s not the real 
answer!) If one finds another area with factors 
related similarly (two greater than and one less 
than) then neither can be the ‘unique’ one. 

Now comes the easy part! Find out which 
rectangle Is the unique one! You mustalso write 
a BASIC program to prove your answer. It Is not 
easy and requires a considerable amount of 
calculation. 

The winners jackpot stands at 8 disks or 8 Cl 0 
Cassettes. Greg has also agreed to throw into 
the pot a copy of his recently published book on 
Sound and Graphics for the C64. 

COMPETITION 3/2 

The problem was: using PRINT statements 
containing only one , write a BASIC program 
to draw the following pattern on the screen. 

With over thirty answers the selection of the 
winner was not an easy task. Most entries were 
quite competent. It was encouraging to find so 
many entries from our younger readers. (By the 
way Robert, maybe It could be a peaceful Xmas 
Tree (?) instead of a rocket.) 

The following winner was chosen, mainlv 
because of their deviousness in obtaining a one 
liner! 


1 FOR 1=1 TO 5:X=20-I-F(I>7)*(4-rHl>i n 
H:(11-I):PR1NT:PRINT SPC(X); ^ 

FOR J=1 TO 20-X: PRINT”* “;:NEXT JJ 

CONTINUED OVERLEAF 
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CONTINUED FROM PREVIOUS PAGE 


•T 

•4: i'K 

•T r’T 

4i i-H 45 
4 :+5 5+^ 

4 4i i*r 45 

5+5 54 5+5 5+5 54 .+5 54 

54 5.^ 54 54 

54 51^ 54 54 

■ +5 5.K 54 54 

54 5+5 54 

54 54 54 54 +5 

54 54 54 54 i4 54 

54 54 54 *4 54 54 4 

5454+i545454+:54 


(Remember to abbreviate all keywords. SPC( is 
sP. There is also no need for a semicolon after 
the SPC(X) command.) - D. & S.G Pfennig, 
Hackham West 5163 

Competition 4/1. Machine Code. 

The problem was: Write a program to convert a 
three digit ASCII number to a single byte hex 
number. Assume that decimal 159 as Its ASCII 
equivalent is stored in memory starting at 
location $1000. That is 


Loc Hex 

ASCII 

$1000 = $31 

= 1 

$1001 = $35 

= 5 

$1002 = $39 

= 9 


The program must convert these values to a 
single byte hexadecimal value ($9F) which 
must appear in location $1004. (It must also 
work forany decimal number 0-255!) 

Mail for this problem was most interesting with 
many people using lovely routines. First of all, 
everyone knows that 159 decimal is $9F but did 
anyone but Mike Gregory from Winston Hills 
realize that the sum of $31 -}-$35+$39 = $9F? I 
didn’t! 

One interesting point was made by Deiter 
tennig. How doyou multiply by 100 in machine 
Ode The usual way Is to multiply by ten twice, 

11 some thought it can be done 

•Ike this. 


L-Dh . 

HSL 

HSL 

STR $fe 
HSL 
RSL 
RSL 

STR ;TFD 

hsl 

CLC 

FiOC i^FD 
'-LC 
RDC 
BRK 




N must be <3 
*2 = 2*N 
*2 = 2*N =T1 
save partial product 4*N 
*2 = 8*N 
*2 = 16*N 
*2 = 32*N = T2 
save partial product 32* N 
*2 = 64*N 

: = 64*N + 32*N = 96*N 
: 96*N + 2*N = 100*N 


A- Uses Zero page addressing as much as 
possible 

Note: STA$FE/LDA$FEis5cycles 
PHA/.PLA is 7 cycles ! 

B. Limits branching and JMPs and JSRs 

C .Limits Index addressing and uses Z page and 
limits crossing page boundaries (adds 1 extra 
. clock cycle). 

D. Limits calculation and uses lookup tables. 

For this exercise, the fastest method Involves 
using a lookup table (D) and overcomes the 
limitations of (A) and (C). Two people sent in 
almost identical entries. These winning entry is 
shown below by John O’Donnell from Whyalla 
Stuart, SA. Also Nick Hawthorn from Auckland 
NZ was extremely close but his entry had a 
minor problem. 


t -1 005 

STRPT 

LDR 

1 002 

r 0et decirna.l L4ni-t 



EOR 

#4^:30 

? r erriQ'...'e b^ c. i i :4:4 



CLC 


.? prer:*.=ire "to a.dd 



LDV 

-T 1 00 1 

.? -iiet tens in V 



RDC 

^0FEE,V 

.r lookup aj-'cd a.dd decii 





.? '.Mith Full assembler- 





RDC TEHS-4S..V 



LDV 

-T100v7;i 

" 0 e t e c i m a. 1 u 1 u e f , 



RDC 

$0FEB.V 

.r lookup and a.dd decii 





; HDC HDRS-4S/t' 



STR 

BRK 

1004 


•T101B 

HDRS . 

BVT 

^^00.. 

Tce 

:$^101E 

TENS , 

BVT 

T00.,. :J:0R 

.r T14 .. t-1E .. -^20 .. T:3C .. :$:46 .. ’t'. 


- 

BVT 

4n5R 



Quite a nice program in 64 clock cycles. 

Keep up the programming. Hopefully there will 
be more competitions in the new year. 

Merry Xmas to all, 

Greg Perry 

Definitions 

BASIC - Bloody Awful Stuff In Computers. 
LIST - What you begin to do to one side 
when you’ve been programming too long in 
one go! 

DEF FN - A FN that can’t hear very well. 
DIM - Not clever enough 
EN D - The bit you bang when it doesn’t work 
GET - What you say to your little brother or 
sister as he/she approaches your disk drive. 

Definitions courtesy of Stuart Elflett 
Alias The Happy Hacker - Qld. 




100s 

L hundreds 


; 0 .r 1 00 .r 200 


-. up 40 90 


Execution time is 30 clock cycles. This could be 
tables were moved so that 
the ADC instruction did not have to cross a oaae 
boundary. 

I think that an AND #$0F in line 2 would hP 
better but the EOR works. 

In future I must remember to make any future 
machine code competitions easier to iudoe 
since I specified the winner would be judged on 
speed (clock cycles) alone, I have had to 
calculate the speed of each entry one by one! 

By way of an example, a typical method of 
solving the problem but not using lookuptables 
was entered by C.A.P Bundy from Applecross 
WA. (Slightly edited version.) 


High Score 


Unfortunately this didn’t help him. 

fob sufficient to do the 

Qenerany fast '^d speed since it’s 

fastest Dronrlt?° '"Of® fbe 

^•^d find ^ must optimise the code 

code itilizl^cV^'^'*®^^ balance. Generally, fast 
® 't‘l'zes some of the following:- 


LDR 

^■•1002 

.?‘ 2 iet ur-iits 

RND 

#T0F 

.?chop ascii 

STR 

•-$^42 

.?s.aoe U 

LDR 

1 00 1 

.?' 3 et tens 

RND 

#:$:0F 

.?chop ascii 

STR 

^41 

fsa.oe T 

LDR 

:Tlk100 

.r-EHet hur-idreds 

RND 

#:T0F 

rchop ascii 

STR 

•-$•40 

.rsa.oe H 

CLC 



RSL 

R 

.? m2 

RSL 

R 

;+2 = H+4 

RDC 

$40 

.:+H = H-+:5 

RSL 

R 

::t.2 = Ht.l0 

RDC 

$41 

.?a.dd T 

STR 

$41 

? s-B.oe tot-9.1 tens 



'• H+10+•$;:• 

RSL 

R 

;+;2 

RSL 

R 

;+2 

RDC 

$41 

.; + tota. 1 tens 



= <H+=10+t::‘.+:F. 

RSL 



RDC 

$42 

.? add ur'iits 

STR 

•$ 1004 

.;done a.t lest 


SPRITEMAN 64 
92,290 
TRASHMAN 
407,705 
VIC FROGGER 
225,000 

FALCON PATROL 

5,525 

BEACH HEAD 

95.000 

SAMMY LIGHTFOOT 

86,830 

THRESHOLD 

425,800 

MUNCH-MANIA 

49,000 Shirley Puckeridge TAS. 

C64 FROGGER 

74,840 Shirley Puckeridge TAS. 

ZAXXON 

60,200 Shirley Puckeridge TAS. 

GHOSTBUSTERS 

$26,800 Shirley Puckeridge TAS. 

(AC No 50454700) 

WIZARD OF WOR 

104,390 Shirley Puckeridge TAS. 

(Dungeon 19-Worlord Supreme) 

LUNAR LEEPER 

127,040 "Happy Hacker - Old’’ 


Brendon Madden VIC 
Stephen Norman N.S.W. 

J.H.Fry ACT 
Jeremy Bone SA 
Jeremy Bone SA 
Felix Ryan QLD 
S. Puckeridge TAS. 


PRIZE WINNERS 

Our “Piling” System is such that 
a couple of you have missed out 
on your Prizes. If so write to the 
Editor stating Vol. & Issue No. of 
the magazine where your name 
appears as a Prize Winner. 
Mervyn Beamish 
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Masochist Corner. 

Graphics Library No. 4: 



Chessplayer 

Kiwisoft Programs Pty. Ltd. 

The GRAPHICS LIBRARY series is very popular with our 
readers. Based on the enquiries we have received, there are 
a number of you out there that text entered each picture 
while others wait for the relevent disk offer to arrive. 

The DISPLAY.BAS program that is published below is yet 
another way of displaying your picture on the screen 
through you C64. This program, adapted from one published 
in the PAINTPIC”* manual, allows you to select pictures and 
change between text and graphic screens. The problem 
with DISPLAY.BAS is that it is very slow. While loading the 
picture from disk your drive will stop and start, and generally 
act up - DON’T PANIC! 

CHESSPLAYERGEN 


32090 GET#1.U$:UW=ASC(U$+CHR$(0)):RETURN’GQXF 

32099 REMTURN ON PICTURE SCREEN (SEE P101 IN PROGRAMMER’S REFERENCE GUIDE) 
'BGGX 

32100 POKE53272.120:POKE53265.PEEK(53265)OR32;REMPICTURE ADDR AND BITMAP SET 
’FYEF 

32101 POKE53270,PEEK{53270)OR16:REM MULTICOLOR MODE’EFFA 

32102 P0KE53281.UB;REM SET BACKGROUND COLOR’CCMA 

32103 P0KE56578.PEEK(56578)0R3;P0KE56576.(PEEK(56576)AND252)0R2:REM BANK 1 
’IPUG 

32104 RETURN’BAQA 

32199 REMTURN OFF PICTURE SCREEN AND BACK ON TEXT SCREEN’BOVU 

32200 P0KE53272.21:P0KE53265.PEEK(53265)AND223:REMPICTURE ADDR AND BITMAP 
RESETFBFG 

32201 POKE53270.PEEK(53270)AND239:REM MULTICOLOR MODE OFF’EJWC 

32202 P0KE53281.6;REM RESET BACKGROUND COLOR’CDOB 

32203 P0KE56578.PEEK{56578)0R3;P0KE56576.(PEEK(56576)AND252)0R3:REM BANK 0 
’IPUH 

32204 RETURN’BAQB 


This program generates CHESSPLAYER picture (refer 
front cover). We have dropped the usual checksum facility 
this month but HELPOUT has been utilized to assist you in 
loading the program (refer page 4). 

First load and run CHESSPLAYERGEN which will 
generate the CHESSPLAYER file, then save it to tape or 
disk. 

Secondly NEW, LOAD “DISPLAY.BAS” and RUN. The 
picture will come up on your screen. 

NOTE There should be 13 items in each of the datalines 
except the lasttwo. Checkthat you put in all commasshown. 

Good text entry! 

®KIWISOFT 1985 


DISPLAY.BAS PROGRAM 


1 REM DISPLAY PICTURE’BORD 

2 REM’BARA 

3 REM BY KIWISOFT PROGRAMS LTD’BVHH 

4 REM’BARC 

5 REM YOU ARE FREE TO USE THIS PROGRAM FOR YOUR OWN WORK’BPKP 
10 PRINT:PRINT"THIS UNLOCKED BASIC PROGRAM IS THE DISK’"CBBI 

20 PRINT-VERSION OF THE PROGRAM IN THE PAINTPIC MANUAL’"BAYK 
70 REM MAINLINE BEGINS’BOWH 
80 DIMU1%(199)’BILG 

90 INPUT’NAME OF PICTURE";U$;REM NEED U$ FOR THE LOAD ROUTINE’CCUR 

100 PRINT-[HOME]”;:REM CLEAR AND HOME’COQA 

110 GOSUB32000:REM LOAD THE PICTURE’CUDC 

120 GOSUB31000:REM SAVE CM AREA TOP’CTVD 

130 GOSUB1200:REM CLEAR TOP OF TEXT SCREEN’CANG 

140 PRINT“HIT 0 TO QUIT OR ANY CHAR TO SWITCH SCREENS’"BAML 

150 GETA$:IFA$=""GOT0150’EIBE 

160 IFA$="Q’’THEN STOP’ECRE 

170 GOSUB31100:GOSUB32100:REM RESTORE CM AND TURN ON PICTURE’DMTN 
180 GETA$:IFA$="’’GOT0180’EIEH 

190 GOSUB32200;IFA$=-Q"THENSTOP:REM TURN OFF PICTURE AND ON TEXT. STOP IF 0 
’GPXS 

200 GOT0120:REM CYCLE AGAIN 

210 REM END OF MAIN PROGRAM BEGIN SUBROUTINES’BHAH 

1199 REM SUBROUTINETO CLEAR TOP200 LOCS IN SCREEN AREA AND POSITION TO HOME 

i9nn PmNr(HOMEl"::FORI=1T0200:PRINr ■■;:NEXT;PRINriHOME]";:RETURN'INOC 

inqqq REM SAVE THE FIRST 200 CM TABLE VALUES'BDDW 

9 ?nnn Mq_55296 F0RU=UST0US+199:U1%(U-US)=PEEK(U):NEXT:RETURN'KFCB 

q nqS RFM RESTORE THE FIRST 200 CM TABLE VALUES'BGRP 

q ?nn ^ 0=55296 F0RU=UST0US+199:P0KEU.U1%(U-US):NEXT:RETURN’JEAB 

32001 GOSUB'32090;UB=UW:UJ=USflE^MSEm CM'ECTF 

32003 ucS2®UJ=UC:U=FRE(0):REM SET TO LOAD TS AND BS. GARBAGE COLLECT 

q9nn/rnqi'lR32060IFUJ<=UC+999GOT032004'GSQA 

qqnnq ma- 24 S 76 UJ=UA U=FRE(0):REM SET TO LOAD DOTS. GARBAGE COLLECTFVIJ 
32 S 06 gSsuSo:U=FRE(0):IFUJ<=UA+7999GOT032006'IYMF 
32007 CL0SE1 RETURN’CCCD 

32060 goSUB32090;UH=UW:GOSUB32090:UE=UW;G0SUB32090:UE=256*UW-FUE; 
REM VALCOUNT’JWFM 

32061 FORUT=OTOUE-1;POKEUJ+UT.UH:NEXT:UJ=UJ+UE;RETURN’KXN! 


CHESSPLAYERGEN 


1 REM PROGRAM TO MAKE PICTURE IN CADPIC FORM’BHRI 

2 REM SUPPLIED BY KIWISOFT PROGRAMS LTD’BEDJ 
110 PRINTiPRINT’BEGIN STORING PICTURE”:PRINrDCGE 

120 PRINT-ENTER T FOR TAPE OR D FOR DISK ST 0 RAGE":INPUr (T/D)";A$’CEWK 
130 A$=LEFT$(A$.1);IFA$="rTHENDEV=1;SA=1:B$="”:G0T0150’JBGJ 
140 DEV=8;SA=2;B$=-.S.W":IFA$<>“D”GOT0120’HRSI 
150 0PEN1 .DEV,SA.“CHESSPLAYER’’4-B$’CLLH 

160 REST0RE;READK:READK:A=2;PRINT#1.“P”;CHR${K);:REMEMBER 2 SEMICOLONS’HHON 
170 F0RI=1T0864’DFRE 
175 F0RJ=AT06'DDBJ 

180 D=0;READC:READB;IFC=0THEND=rHLDJ 

185 PRINT#1.CHR$(B);CHR${C);CHR${D);:REMEMBER 3 SEMICOLONS’FGAT 
190 NEXTJ:READK:REM THROW OUT CHECKSUM’DUCL 
195 A=1:PRINT-%";:NEXTrDGRM 
200 CLOSEI’BBIV 

205 PRINT:PRINrPICTURE SAVED":END’DCYG 
1000 DATA 68,9,17,15,9.8,14. .17,15.9,8.5189’BISV 
1010 DATA 14. .3,15.1. ,1,15.2.6.10.15.5082’BGLA 
1020 DATA 9,8,14, .5.15.2.6,6.15.3,5.5088’BFSB 
1030 DATA 1.15.9,8,16. ,3.15.2,6,6,15.5096'BGOC 
1040 DATA 3,5.1.15.9.8.16. ,3,15.2,6,5083’BFID 
1050 DATA 10.15.9.8.23. .5,15.1. ,2,15,5103’BGRE 
1060 DATA 9,8,31. ,9.8,32, .8.8.32. .5145’BDAE 
1070 DATA 8,8,32, .6.8,1,10.1,8,25. .5107'BEF6 
1080 DATA 5,2.1,15.2.8.2,12.3,8.1.11,5070’BGOH 
1090 DATA 1,8,25, .6,2,7,8,4.15,23. .5099’BEQI 
1100 DATA 6.2,7.8.4.15.23, ,6.2.7.8.5088’BEVA 
1110 DATA 2.15,1, .1.15.23. .6,2.7.8,5080’BEBA 
1120 DATA 1.10.26. .7.2.7.8.15, .6,8.5090’BEHC 
1130 DATA 5, .2,2,1,11,1.12.2.2,1,11.5050’BFUD 
1140 DATA 6,8.16. ,6,8,5. . 1.1 1.1.2.5064'BDHD 
1150 DATA 2.1 1 .3,12.2.8.20. .6.12.5. .5081 'BFLF 
1160 DATA 6.12.1,2,15. .7.2.1. ,5.12.5063'BETF 
1170 DATA 5. .7.2.5,8.3.12.7. ,7.2.5058’BCPG 
1180 DATA 11, .7.2.4.8.1.11.3.12.1, .5060’BENH 
1190 DATA 3.12.3. ,7.2.11. .7.2.4.8.5059’BDGI 
1200 DATA 1,11,7.12.3,11.7.2.11. .7.2,5074’BGNB 
1210 DATA 4.8.1, 11 .7.12,3,1 1 .7,2,11. .5077’BGTC 
1220 DATA 11.2.1,11,7,12.3.11.6.2,1,5.5072’BHHD 
1230 DATA 17.25,3.201,3.169,3,201,1,249.1,25,581 
1240 DATA 4.201,17.25.1,28,7.25,3.249.3.167.5730’BNLG 
1250 DATA 3.201.1.249,1,25.4,201,13.25,2,30.5755'BNOH 
1260 DATA 10.25,3,249,3.199,3,201,1.249,1,25,5969’BOOJ 
1270 DATA 4,201.9,25.4.16.2,30.2.29.1.28.5351 ’BKWJ 
1280 DATA 4,25,1.18.2.25,3,249,1.192.2.199.5721 'BMNK 
1290 DATA 3.201,1.249,1.25,4.201.8.25.1.137.5856’BNCL 
1300 DATA 2.128,2,16.2.30.2,29,5.25,1.22.5264’BKTD 
1310 DATA 2.25.1.201.1,255.1.249.6.201.1.249.6192'BOWE 
1320 DATA 1.25.4.201.7.9.1.25.5.16.1.30.5325’BJXE 
1330 DATA 1.174.2,29.5.25,2.22.1.25.1.47.5334’BKYG 
1340 DATA 1.41.4,201.1.192.2.201.1.249,5.201.6099’BOQH 
1350 DATA 7.9.1.25.3.16.4.25.2.29.4,25.5150’BIKH 
1360 DATA 1.16.1.27,1.22,1,25.2.41,3.201.5341’BKCJ 
1370 DATA 2.192.2.201,1.249.5.201.7.9.1.25.5895’BMKK 
1380 DATA 8.242,6.25.2.27.1.25.1.32.2.41.5412’BKSL 
1390 DATA 1.32.5.201.1,249.5.25.7.9.1.25,5561’BKDM 
1400 DATA 8.242.2.25.9.16,2.32.1.240.5.249.583rBMIE 
1410 DATA 5.25.7.9.1.25,8.242.2,25.9.16.5374’BJTF 
1420 DATA 3.240.5.249,5.25.7.9.1.25.8.242,5819'BLWG 
1430 DATA 2.25.9.16.2.240,2.242.1.162,2.169.5872’BNHH 
1440 DATA 1.249.1.25.8.137.3.9,1.25.8.242.5709’BLSI 
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If you own an Apple lie, 
you*d have to add all this 



to match the versatility, expandabiiity 
and hisher inteliijence of the 
new Commodore 128 


The new Commodore 128’“ personal 
computer is breakthrough technol¬ 
ogy at a breakthrough price. It out¬ 
shines the Apple® lie in performance 
capability, performance quality and 
price. It is expandable to 512K ram 
while the He isn't expandable at all. 


(and it costs less too). 

And the new Commodore 128 has a 
numeric keypad built right Into Its key¬ 
board that makes crunching numbers 
a lot easier. And the Commodore 128 
has graphic and sound capabilities 
that far exceed those of the Apple Me. 
But the most Important news is that 


the new Commodore 128 jumps you 
Into a whole new world of business, 
productivity, education and word 
processing programs while still run¬ 
ning over 3,000 programs designed 
for the Commodore 64.'"’ That's what 
we call a higher intelligence. 


COMMODORE 128 X A Higher Intelligence 


C- commodore 

COMPUTER 


Keeping up with you. 


BEEMAN MAYRHOFER STOTT/CC422 























The OmmodcKe 64 

Masac Maker. 



The Keyboard For The Keyboard 


Well, it’s not exactly ‘clip on Chopin’, but the 
Commodore 64 Music Maker certainly adds a new 
dimension to home computers. It’s the ‘keyboard’ 
for the ‘keyboard’. Just clip on and play. 

Music Maker comes with instructions and easy- 
step melody book to enable you to explore the 
wonderful world of music at your own pace and in 
your own time. In fact, it’s so much fun that music 


lessons may never be the same again. Music 
Maker encourages musical adventure and 
experiment,and that, in our opinion, is a good 
place to start experiencing the magic of making 
your own music. 

Talk to your nearest Commodore dealer today 
about the simple, easy way to turn your 
Commodore 64 computer into a Music Maker. 


■ C- commodore ^— 

COMPUTER 


Keeping up with you. 

Contact your nearest Commodore Dealer or Commodore Business Machines- 
Sydney: (02) 427 4888. Melbourne: (03) 429 9855. Brisbane: (07) 393 0300. Perth: (09) 3891266. BMS/CC373 









